/ Chip 1996 September / CHIP Eylül 1996.iso / utils / povray / povsrc.sea / POVSRC / SOURCE / IMAGE.C

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 07 49 4d 41 47 45 2e | 43 00 00 00 00 00 00 00 |..IMAGE.|C.......|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4d 50 53 | 20 01 00 00 00 00 00 00 |.TEXTMPS| .......|
|00000050| 00 00 00 00 00 51 ca 00 | 00 01 ac a8 7c b4 ec a8 |.....Q..|....|...|
|00000060| 7c b4 ec 00 00 08 00 00 | 00 00 00 00 00 00 00 00 ||.......|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 ea 9c 00 00 |........|........|
|00000080| 2f 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |/*******|********|
|00000090| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000000a0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000000b0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000000c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 0d 2a 20 |********|*****.* |
|000000d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 69 |        |       i|
|000000e0| 6d 61 67 65 2e 63 0d 2a | 0d 2a 20 20 54 68 69 73 |mage.c.*|.*  This|
|000000f0| 20 6d 6f 64 75 6c 65 20 | 69 6d 70 6c 65 6d 65 6e | module |implemen|
|00000100| 74 73 20 74 68 65 20 6d | 61 70 70 65 64 20 74 65 |ts the m|apped te|
|00000110| 78 74 75 72 65 73 20 69 | 6e 63 6c 75 64 69 6e 67 |xtures i|ncluding|
|00000120| 20 69 6d 61 67 65 20 6d | 61 70 2c 20 62 75 6d 70 | image m|ap, bump|
|00000130| 20 6d 61 70 0d 2a 20 20 | 61 6e 64 20 6d 61 74 65 | map.*  |and mate|
|00000140| 72 69 61 6c 20 6d 61 70 | 2e 20 0d 2a 0d 2a 20 20 |rial map|. .*.*  |
|00000150| 66 72 6f 6d 20 50 65 72 | 73 69 73 74 65 6e 63 65 |from Per|sistence|
|00000160| 20 6f 66 20 56 69 73 69 | 6f 6e 20 52 61 79 74 72 | of Visi|on Raytr|
|00000170| 61 63 65 72 0d 2a 20 20 | 43 6f 70 79 72 69 67 68 |acer.*  |Copyrigh|
|00000180| 74 20 31 39 39 33 20 50 | 65 72 73 69 73 74 65 6e |t 1993 P|ersisten|
|00000190| 63 65 20 6f 66 20 56 69 | 73 69 6f 6e 20 54 65 61 |ce of Vi|sion Tea|
|000001a0| 6d 0d 2a 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |m.*-----|--------|
|000001b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000001c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000001d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000001e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 0d 2a |--------|------.*|
|000001f0| 20 20 4e 4f 54 49 43 45 | 3a 20 54 68 69 73 20 73 |  NOTICE|: This s|
|00000200| 6f 75 72 63 65 20 63 6f | 64 65 20 66 69 6c 65 20 |ource co|de file |
|00000210| 69 73 20 70 72 6f 76 69 | 64 65 64 20 73 6f 20 74 |is provi|ded so t|
|00000220| 68 61 74 20 75 73 65 72 | 73 20 6d 61 79 20 65 78 |hat user|s may ex|
|00000230| 70 65 72 69 6d 65 6e 74 | 0d 2a 20 20 77 69 74 68 |periment|.*  with|
|00000240| 20 65 6e 68 61 6e 63 65 | 6d 65 6e 74 73 20 74 6f | enhance|ments to|
|00000250| 20 50 4f 56 2d 52 61 79 | 20 61 6e 64 20 74 6f 20 | POV-Ray| and to |
|00000260| 70 6f 72 74 20 74 68 65 | 20 73 6f 66 74 77 61 72 |port the| softwar|
|00000270| 65 20 74 6f 20 70 6c 61 | 74 66 6f 72 6d 73 20 6f |e to pla|tforms o|
|00000280| 74 68 65 72 20 0d 2a 20 | 20 74 68 61 6e 20 74 68 |ther .* | than th|
|00000290| 6f 73 65 20 73 75 70 70 | 6f 72 74 65 64 20 62 79 |ose supp|orted by|
|000002a0| 20 74 68 65 20 50 4f 56 | 2d 52 61 79 20 54 65 61 | the POV|-Ray Tea|
|000002b0| 6d 2e 20 20 54 68 65 72 | 65 20 61 72 65 20 73 74 |m.  Ther|e are st|
|000002c0| 72 69 63 74 20 72 75 6c | 65 73 20 75 6e 64 65 72 |rict rul|es under|
|000002d0| 0d 2a 20 20 77 68 69 63 | 68 20 79 6f 75 20 61 72 |.*  whic|h you ar|
|000002e0| 65 20 70 65 72 6d 69 74 | 74 65 64 20 74 6f 20 75 |e permit|ted to u|
|000002f0| 73 65 20 74 68 69 73 20 | 66 69 6c 65 2e 20 20 54 |se this |file.  T|
|00000300| 68 65 20 72 75 6c 65 73 | 20 61 72 65 20 69 6e 20 |he rules| are in |
|00000310| 74 68 65 20 66 69 6c 65 | 0d 2a 20 20 6e 61 6d 65 |the file|.*  name|
|00000320| 64 20 50 4f 56 4c 45 47 | 41 4c 2e 44 4f 43 20 77 |d POVLEG|AL.DOC w|
|00000330| 68 69 63 68 20 73 68 6f | 75 6c 64 20 62 65 20 64 |hich sho|uld be d|
|00000340| 69 73 74 72 69 62 75 74 | 65 64 20 77 69 74 68 20 |istribut|ed with |
|00000350| 74 68 69 73 20 66 69 6c | 65 2e 20 49 66 20 0d 2a |this fil|e. If .*|
|00000360| 20 20 50 4f 56 4c 45 47 | 41 4c 2e 44 4f 43 20 69 |  POVLEG|AL.DOC i|
|00000370| 73 20 6e 6f 74 20 61 76 | 61 69 6c 61 62 6c 65 20 |s not av|ailable |
|00000380| 6f 72 20 66 6f 72 20 6d | 6f 72 65 20 69 6e 66 6f |or for m|ore info|
|00000390| 20 70 6c 65 61 73 65 20 | 63 6f 6e 74 61 63 74 20 | please |contact |
|000003a0| 74 68 65 20 50 4f 56 2d | 52 61 79 0d 2a 20 20 54 |the POV-|Ray.*  T|
|000003b0| 65 61 6d 20 43 6f 6f 72 | 64 69 6e 61 74 6f 72 20 |eam Coor|dinator |
|000003c0| 62 79 20 6c 65 61 76 69 | 6e 67 20 61 20 6d 65 73 |by leavi|ng a mes|
|000003d0| 73 61 67 65 20 69 6e 20 | 43 6f 6d 70 75 53 65 72 |sage in |CompuSer|
|000003e0| 76 65 27 73 20 47 72 61 | 70 68 69 63 73 20 44 65 |ve's Gra|phics De|
|000003f0| 76 65 6c 6f 70 65 72 27 | 73 0d 2a 20 20 46 6f 72 |veloper'|s.*  For|
|00000400| 75 6d 2e 20 20 54 68 65 | 20 6c 61 74 65 73 74 20 |um.  The| latest |
|00000410| 76 65 72 73 69 6f 6e 20 | 6f 66 20 50 4f 56 2d 52 |version |of POV-R|
|00000420| 61 79 20 6d 61 79 20 62 | 65 20 66 6f 75 6e 64 20 |ay may b|e found |
|00000430| 74 68 65 72 65 20 61 73 | 20 77 65 6c 6c 2e 0d 2a |there as| well..*|
|00000440| 0d 2a 20 54 68 69 73 20 | 70 72 6f 67 72 61 6d 20 |.* This |program |
|00000450| 69 73 20 62 61 73 65 64 | 20 6f 6e 20 74 68 65 20 |is based| on the |
|00000460| 70 6f 70 75 6c 61 72 20 | 44 4b 42 20 72 61 79 74 |popular |DKB rayt|
|00000470| 72 61 63 65 72 20 76 65 | 72 73 69 6f 6e 20 32 2e |racer ve|rsion 2.|
|00000480| 31 32 2e 0d 2a 20 44 4b | 42 54 72 61 63 65 20 77 |12..* DK|BTrace w|
|00000490| 61 73 20 6f 72 69 67 69 | 6e 61 6c 6c 79 20 77 72 |as origi|nally wr|
|000004a0| 69 74 74 65 6e 20 62 79 | 20 44 61 76 69 64 20 4b |itten by| David K|
|000004b0| 2e 20 42 75 63 6b 2e 0d | 2a 20 44 4b 42 54 72 61 |. Buck..|* DKBTra|
|000004c0| 63 65 20 56 65 72 20 32 | 2e 30 2d 32 2e 31 32 20 |ce Ver 2|.0-2.12 |
|000004d0| 77 65 72 65 20 77 72 69 | 74 74 65 6e 20 62 79 20 |were wri|tten by |
|000004e0| 44 61 76 69 64 20 4b 2e | 20 42 75 63 6b 20 26 20 |David K.| Buck & |
|000004f0| 41 61 72 6f 6e 20 41 2e | 20 43 6f 6c 6c 69 6e 73 |Aaron A.| Collins|
|00000500| 2e 0d 2a 0d 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |..*.****|********|
|00000510| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000520| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000530| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000540| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000550| 2a 2f 0d 0d 23 69 6e 63 | 6c 75 64 65 20 22 66 72 |*/..#inc|lude "fr|
|00000560| 61 6d 65 2e 68 22 0d 23 | 69 6e 63 6c 75 64 65 20 |ame.h".#|include |
|00000570| 22 76 65 63 74 6f 72 2e | 68 22 0d 23 69 6e 63 6c |"vector.|h".#incl|
|00000580| 75 64 65 20 22 70 6f 76 | 70 72 6f 74 6f 2e 68 22 |ude "pov|proto.h"|
|00000590| 0d 23 69 6e 63 6c 75 64 | 65 20 22 74 65 78 74 75 |.#includ|e "textu|
|000005a0| 72 65 2e 68 22 0d 0d 73 | 74 61 74 69 63 20 69 6e |re.h"..s|tatic in|
|000005b0| 74 20 63 79 6c 69 6e 64 | 72 69 63 61 6c 5f 69 6d |t cylind|rical_im|
|000005c0| 61 67 65 5f 6d 61 70 20 | 50 41 52 41 4d 53 28 28 |age_map |PARAMS((|
|000005d0| 44 42 4c 20 78 2c 20 44 | 42 4c 20 79 2c 20 44 42 |DBL x, D|BL y, DB|
|000005e0| 4c 20 7a 2c 20 49 4d 41 | 47 45 20 2a 49 6d 61 67 |L z, IMA|GE *Imag|
|000005f0| 65 2c 20 44 42 4c 20 2a | 75 2c 20 44 42 4c 20 2a |e, DBL *|u, DBL *|
|00000600| 76 29 29 3b 0d 73 74 61 | 74 69 63 20 69 6e 74 20 |v));.sta|tic int |
|00000610| 74 6f 72 75 73 5f 69 6d | 61 67 65 5f 6d 61 70 20 |torus_im|age_map |
|00000620| 50 41 52 41 4d 53 28 28 | 44 42 4c 20 78 2c 20 44 |PARAMS((|DBL x, D|
|00000630| 42 4c 20 79 2c 20 44 42 | 4c 20 7a 2c 20 49 4d 41 |BL y, DB|L z, IMA|
|00000640| 47 45 20 2a 49 6d 61 67 | 65 2c 20 44 42 4c 20 2a |GE *Imag|e, DBL *|
|00000650| 75 2c 20 44 42 4c 20 2a | 76 29 29 3b 0d 73 74 61 |u, DBL *|v));.sta|
|00000660| 74 69 63 20 69 6e 74 20 | 73 70 68 65 72 69 63 61 |tic int |spherica|
|00000670| 6c 5f 69 6d 61 67 65 5f | 6d 61 70 20 50 41 52 41 |l_image_|map PARA|
|00000680| 4d 53 28 28 44 42 4c 20 | 78 2c 20 44 42 4c 20 79 |MS((DBL |x, DBL y|
|00000690| 2c 20 44 42 4c 20 7a 2c | 20 49 4d 41 47 45 20 2a |, DBL z,| IMAGE *|
|000006a0| 49 6d 61 67 65 2c 20 44 | 42 4c 20 2a 75 2c 20 44 |Image, D|BL *u, D|
|000006b0| 42 4c 20 2a 76 29 29 3b | 0d 73 74 61 74 69 63 20 |BL *v));|.static |
|000006c0| 69 6e 74 20 70 6c 61 6e | 61 72 5f 69 6d 61 67 65 |int plan|ar_image|
|000006d0| 5f 6d 61 70 20 50 41 52 | 41 4d 53 28 28 44 42 4c |_map PAR|AMS((DBL|
|000006e0| 20 78 2c 20 44 42 4c 20 | 79 2c 20 44 42 4c 20 7a | x, DBL |y, DBL z|
|000006f0| 2c 20 49 4d 41 47 45 20 | 2a 49 6d 61 67 65 2c 20 |, IMAGE |*Image, |
|00000700| 44 42 4c 20 2a 75 2c 20 | 44 42 4c 20 2a 76 29 29 |DBL *u, |DBL *v))|
|00000710| 3b 0d 73 74 61 74 69 63 | 20 76 6f 69 64 20 6e 6f |;.static| void no|
|00000720| 5f 69 6e 74 65 72 70 6f | 6c 61 74 69 6f 6e 20 50 |_interpo|lation P|
|00000730| 41 52 41 4d 53 28 28 49 | 4d 41 47 45 20 2a 49 6d |ARAMS((I|MAGE *Im|
|00000740| 61 67 65 2c 44 42 4c 20 | 78 63 6f 6f 72 2c 44 42 |age,DBL |xcoor,DB|
|00000750| 4c 20 79 63 6f 6f 72 2c | 43 4f 4c 4f 55 52 20 2a |L ycoor,|COLOUR *|
|00000760| 63 6f 6c 6f 75 72 2c 69 | 6e 74 20 2a 69 6e 64 65 |colour,i|nt *inde|
|00000770| 78 29 29 3b 0d 73 74 61 | 74 69 63 20 44 42 4c 20 |x));.sta|tic DBL |
|00000780| 62 69 6c 69 6e 65 61 72 | 20 50 41 52 41 4d 53 28 |bilinear| PARAMS(|
|00000790| 28 44 42 4c 20 2a 63 6f | 72 6e 65 72 73 2c 44 42 |(DBL *co|rners,DB|
|000007a0| 4c 20 78 2c 44 42 4c 20 | 79 29 29 3b 0d 73 74 61 |L x,DBL |y));.sta|
|000007b0| 74 69 63 20 44 42 4c 20 | 6e 6f 72 6d 5f 64 69 73 |tic DBL |norm_dis|
|000007c0| 74 20 50 41 52 41 4d 53 | 28 28 44 42 4c 20 2a 63 |t PARAMS|((DBL *c|
|000007d0| 6f 72 6e 65 72 73 2c 44 | 42 4c 20 78 2c 44 42 4c |orners,D|BL x,DBL|
|000007e0| 20 79 29 29 3b 0d 73 74 | 61 74 69 63 20 76 6f 69 | y));.st|atic voi|
|000007f0| 64 20 49 6e 74 65 72 70 | 20 50 41 52 41 4d 53 28 |d Interp| PARAMS(|
|00000800| 28 49 4d 41 47 45 20 2a | 49 6d 61 67 65 2c 44 42 |(IMAGE *|Image,DB|
|00000810| 4c 20 78 63 6f 6f 72 2c | 44 42 4c 20 79 63 6f 6f |L xcoor,|DBL ycoo|
|00000820| 72 2c 43 4f 4c 4f 55 52 | 20 2a 63 6f 6c 6f 75 72 |r,COLOUR| *colour|
|00000830| 2c 69 6e 74 20 2a 69 6e | 64 65 78 29 29 3b 0d 73 |,int *in|dex));.s|
|00000840| 74 61 74 69 63 20 76 6f | 69 64 20 69 6d 61 67 65 |tatic vo|id image|
|00000850| 5f 63 6f 6c 6f 75 72 5f | 61 74 20 50 41 52 41 4d |_colour_|at PARAM|
|00000860| 53 28 28 49 4d 41 47 45 | 20 2a 49 6d 61 67 65 2c |S((IMAGE| *Image,|
|00000870| 44 42 4c 20 78 63 6f 6f | 72 2c 44 42 4c 20 79 63 |DBL xcoo|r,DBL yc|
|00000880| 6f 6f 72 2c 43 4f 4c 4f | 55 52 20 2a 63 6f 6c 6f |oor,COLO|UR *colo|
|00000890| 75 72 2c 69 6e 74 20 2a | 69 6e 64 65 78 29 29 3b |ur,int *|index));|
|000008a0| 0d 0d 2f 2a 0d 20 20 20 | 32 2d 44 20 74 6f 20 33 |../*.   |2-D to 3|
|000008b0| 2d 44 20 50 72 6f 63 65 | 64 75 72 61 6c 20 54 65 |-D Proce|dural Te|
|000008c0| 78 74 75 72 65 20 4d 61 | 70 70 69 6e 67 20 6f 66 |xture Ma|pping of|
|000008d0| 20 61 20 42 69 74 6d 61 | 70 70 65 64 20 49 6d 61 | a Bitma|pped Ima|
|000008e0| 67 65 20 6f 6e 74 6f 20 | 61 6e 20 4f 62 6a 65 63 |ge onto |an Objec|
|000008f0| 74 3a 0d 20 20 20 20 20 | 20 20 20 20 20 20 0d 41 |t:.     |      .A|
|00000900| 2e 20 53 69 6d 70 6c 69 | 73 74 69 63 20 28 70 6c |. Simpli|stic (pl|
|00000910| 61 6e 61 72 29 20 6d 65 | 74 68 6f 64 20 6f 66 20 |anar) me|thod of |
|00000920| 69 6d 61 67 65 20 70 72 | 6f 6a 65 63 74 69 6f 6e |image pr|ojection|
|00000930| 20 64 65 76 69 73 65 64 | 20 62 79 20 44 4b 42 20 | devised| by DKB |
|00000940| 61 6e 64 20 41 41 43 3a | 0d 0d 20 20 20 31 2e 20 |and AAC:|..   1. |
|00000950| 54 72 61 6e 73 66 6f 72 | 6d 20 74 65 78 74 75 72 |Transfor|m textur|
|00000960| 65 20 69 6e 20 33 2d 44 | 20 73 70 61 63 65 20 69 |e in 3-D| space i|
|00000970| 66 20 72 65 71 75 65 73 | 74 65 64 2e 0d 20 20 20 |f reques|ted..   |
|00000980| 32 2e 20 44 65 74 65 72 | 6d 69 6e 65 20 6c 6f 63 |2. Deter|mine loc|
|00000990| 61 6c 20 6f 62 6a 65 63 | 74 20 32 2d 64 20 63 6f |al objec|t 2-d co|
|000009a0| 6f 72 64 73 20 66 72 6f | 6d 20 33 2d 64 20 63 6f |ords fro|m 3-d co|
|000009b0| 6f 72 64 73 20 62 79 20 | 3c 58 20 59 20 5a 3e 20 |ords by |<X Y Z> |
|000009c0| 74 72 69 70 6c 65 2e 0d | 20 20 20 33 2e 20 52 65 |triple..|   3. Re|
|000009d0| 74 75 72 6e 20 70 69 78 | 65 6c 20 63 6f 6c 6f 72 |turn pix|el color|
|000009e0| 20 76 61 6c 75 65 20 61 | 74 20 74 68 61 74 20 70 | value a|t that p|
|000009f0| 6f 73 69 74 69 6f 6e 20 | 6f 6e 20 74 68 65 20 32 |osition |on the 2|
|00000a00| 2d 64 20 70 6c 61 6e 65 | 20 6f 66 20 22 49 6d 61 |-d plane| of "Ima|
|00000a10| 67 65 22 2e 0d 20 20 20 | 33 2e 20 4d 61 70 20 63 |ge"..   |3. Map c|
|00000a20| 6f 6c 6f 75 72 20 76 61 | 6c 75 65 20 69 6e 20 49 |olour va|lue in I|
|00000a30| 6d 61 67 65 20 5b 30 2e | 2e 32 35 35 5d 20 74 6f |mage [0.|.255] to|
|00000a40| 20 61 20 6d 6f 72 65 20 | 6e 6f 72 6d 61 6c 20 63 | a more |normal c|
|00000a50| 6f 6c 6f 75 72 20 72 61 | 6e 67 65 20 5b 30 2e 2e |olour ra|nge [0..|
|00000a60| 31 5d 2e 0d 0d 42 2e 20 | 53 70 65 63 69 61 6c 69 |1]...B. |Speciali|
|00000a70| 7a 65 64 20 73 68 61 70 | 65 20 70 72 6f 6a 65 63 |zed shap|e projec|
|00000a80| 74 69 6f 6e 20 76 61 72 | 69 61 74 69 6f 6e 73 20 |tion var|iations |
|00000a90| 62 79 20 41 6c 65 78 61 | 6e 64 65 72 20 45 6e 7a |by Alexa|nder Enz|
|00000aa0| 6d 61 6e 6e 3a 0d 0d 20 | 20 20 31 2e 20 43 79 6c |mann:.. |  1. Cyl|
|00000ab0| 69 6e 64 72 69 63 61 6c | 20 6d 61 70 70 69 6e 67 |indrical| mapping|
|00000ac0| 0d 20 20 20 32 2e 20 53 | 70 68 65 72 69 63 61 6c |.   2. S|pherical|
|00000ad0| 20 6d 61 70 70 69 6e 67 | 0d 20 20 20 33 2e 20 54 | mapping|.   3. T|
|00000ae0| 6f 72 75 73 20 6d 61 70 | 70 69 6e 67 0d 2a 2f 0d |orus map|ping.*/.|
|00000af0| 0d 76 6f 69 64 20 69 6d | 61 67 65 5f 6d 61 70 20 |.void im|age_map |
|00000b00| 28 78 2c 20 79 2c 20 7a | 2c 20 50 69 67 6d 65 6e |(x, y, z|, Pigmen|
|00000b10| 74 2c 20 63 6f 6c 6f 75 | 72 29 0d 44 42 4c 20 78 |t, colou|r).DBL x|
|00000b20| 2c 20 79 2c 20 7a 3b 0d | 50 49 47 4d 45 4e 54 20 |, y, z;.|PIGMENT |
|00000b30| 2a 50 69 67 6d 65 6e 74 | 3b 0d 43 4f 4c 4f 55 52 |*Pigment|;.COLOUR|
|00000b40| 20 2a 63 6f 6c 6f 75 72 | 3b 0d 20 20 7b 0d 20 20 | *colour|;.  {.  |
|00000b50| 2f 2a 20 64 65 74 65 72 | 6d 69 6e 65 20 6c 6f 63 |/* deter|mine loc|
|00000b60| 61 6c 20 6f 62 6a 65 63 | 74 20 32 2d 64 20 63 6f |al objec|t 2-d co|
|00000b70| 6f 72 64 73 20 66 72 6f | 6d 20 33 2d 64 20 63 6f |ords fro|m 3-d co|
|00000b80| 6f 72 64 73 20 2a 2f 0d | 20 20 2f 2a 20 22 75 6e |ords */.|  /* "un|
|00000b90| 77 72 61 70 22 20 6f 62 | 6a 65 63 74 20 32 2d 64 |wrap" ob|ject 2-d|
|00000ba0| 20 63 6f 6f 72 64 20 6f | 6e 74 6f 20 66 6c 61 74 | coord o|nto flat|
|00000bb0| 20 32 2d 64 20 70 6c 61 | 6e 65 20 2a 2f 0d 20 20 | 2-d pla|ne */.  |
|00000bc0| 2f 2a 20 72 65 74 75 72 | 6e 20 70 69 78 65 6c 20 |/* retur|n pixel |
|00000bd0| 63 6f 6c 6f 72 20 76 61 | 6c 75 65 20 61 74 20 74 |color va|lue at t|
|00000be0| 68 61 74 20 70 6f 73 6e | 20 6f 6e 20 32 2d 64 20 |hat posn| on 2-d |
|00000bf0| 70 6c 61 6e 65 20 2a 2f | 0d 0d 20 20 44 42 4c 20 |plane */|..  DBL |
|00000c00| 78 63 6f 6f 72 20 3d 20 | 30 2e 30 2c 20 79 63 6f |xcoor = |0.0, yco|
|00000c10| 6f 72 20 3d 20 30 2e 30 | 09 3b 0d 20 20 69 6e 74 |or = 0.0|.;.  int|
|00000c20| 20 72 65 67 5f 6e 75 6d | 62 65 72 3b 0d 0d 20 20 | reg_num|ber;..  |
|00000c30| 69 66 28 6d 61 70 20 28 | 78 2c 20 79 2c 20 7a 2c |if(map (|x, y, z,|
|00000c40| 20 28 28 54 50 41 54 54 | 45 52 4e 20 2a 29 50 69 | ((TPATT|ERN *)Pi|
|00000c50| 67 6d 65 6e 74 29 2c 20 | 50 69 67 6d 65 6e 74 2d |gment), |Pigment-|
|00000c60| 3e 49 6d 61 67 65 2c 26 | 78 63 6f 6f 72 2c 20 26 |>Image,&|xcoor, &|
|00000c70| 79 63 6f 6f 72 29 29 0d | 20 20 20 20 7b 0d 20 20 |ycoor)).|    {.  |
|00000c80| 20 20 4d 61 6b 65 5f 43 | 6f 6c 6f 75 72 41 20 28 |  Make_C|olourA (|
|00000c90| 63 6f 6c 6f 75 72 2c 31 | 2e 30 2c 31 2e 30 2c 31 |colour,1|.0,1.0,1|
|00000ca0| 2e 30 2c 31 2e 30 29 3b | 0d 20 20 20 20 72 65 74 |.0,1.0);|.    ret|
|00000cb0| 75 72 6e 3b 0d 20 20 20 | 20 7d 0d 20 20 69 6d 61 |urn;.   | }.  ima|
|00000cc0| 67 65 5f 63 6f 6c 6f 75 | 72 5f 61 74 28 50 69 67 |ge_colou|r_at(Pig|
|00000cd0| 6d 65 6e 74 2d 3e 49 6d | 61 67 65 2c 78 63 6f 6f |ment->Im|age,xcoo|
|00000ce0| 72 2c 20 79 63 6f 6f 72 | 2c 20 63 6f 6c 6f 75 72 |r, ycoor|, colour|
|00000cf0| 2c 20 26 72 65 67 5f 6e | 75 6d 62 65 72 29 3b 0d |, &reg_n|umber);.|
|00000d00| 20 20 7d 0d 0d 2f 2a 20 | 56 65 72 79 20 64 69 66 |  }../* |Very dif|
|00000d10| 66 65 72 65 6e 74 20 73 | 74 75 66 66 20 74 68 61 |ferent s|tuff tha|
|00000d20| 6e 20 74 68 65 20 6f 74 | 68 65 72 20 72 6f 75 74 |n the ot|her rout|
|00000d30| 69 6e 65 73 20 68 65 72 | 65 2e 20 54 68 69 73 20 |ines her|e. This |
|00000d40| 72 6f 75 74 69 6e 65 20 | 74 61 6b 65 73 20 20 2a |routine |takes  *|
|00000d50| 2f 0d 2f 2a 20 61 6e 20 | 69 6e 74 65 72 73 65 63 |/./* an |intersec|
|00000d60| 74 69 6f 6e 20 70 6f 69 | 6e 74 20 61 6e 64 20 61 |tion poi|nt and a|
|00000d70| 20 74 65 78 74 75 72 65 | 20 61 6e 64 20 72 65 74 | texture| and ret|
|00000d80| 75 72 6e 73 20 61 20 6e | 65 77 20 74 65 78 74 75 |urns a n|ew textu|
|00000d90| 72 65 20 62 61 73 65 64 | 20 6f 6e 20 2a 2f 0d 2f |re based| on */./|
|00000da0| 2a 20 74 68 65 20 69 6e | 64 65 78 2f 63 6f 6c 6f |* the in|dex/colo|
|00000db0| 72 20 6f 66 20 74 68 61 | 74 20 70 6f 69 6e 74 20 |r of tha|t point |
|00000dc0| 69 6e 20 61 6e 20 69 6d | 61 67 65 2f 6d 61 74 65 |in an im|age/mate|
|00000dd0| 72 69 61 6c 73 20 6d 61 | 70 2e 20 43 64 57 20 37 |rials ma|p. CdW 7|
|00000de0| 2f 39 31 20 20 20 20 20 | 20 2a 2f 0d 0d 54 45 58 |/91     | */..TEX|
|00000df0| 54 55 52 45 20 2a 6d 61 | 74 65 72 69 61 6c 5f 6d |TURE *ma|terial_m|
|00000e00| 61 70 28 49 50 6f 69 6e | 74 2c 54 65 78 74 75 72 |ap(IPoin|t,Textur|
|00000e10| 65 29 0d 56 45 43 54 4f | 52 20 2a 49 50 6f 69 6e |e).VECTO|R *IPoin|
|00000e20| 74 3b 0d 4d 41 54 45 52 | 49 41 4c 20 2a 54 65 78 |t;.MATER|IAL *Tex|
|00000e30| 74 75 72 65 3b 0d 20 20 | 7b 0d 20 20 72 65 67 69 |ture;.  |{.  regi|
|00000e40| 73 74 65 72 20 44 42 4c | 20 78 2c 20 79 2c 20 7a |ster DBL| x, y, z|
|00000e50| 3b 0d 20 20 44 42 4c 20 | 78 63 6f 6f 72 20 3d 20 |;.  DBL |xcoor = |
|00000e60| 30 2e 30 2c 20 79 63 6f | 6f 72 20 3d 20 30 2e 30 |0.0, yco|or = 0.0|
|00000e70| 3b 0d 20 20 69 6e 74 20 | 72 65 67 5f 6e 75 6d 62 |;.  int |reg_numb|
|00000e80| 65 72 20 3d 20 30 3b 0d | 20 20 43 4f 4c 4f 55 52 |er = 0;.|  COLOUR|
|00000e90| 20 63 6f 6c 6f 75 72 3b | 0d 20 20 69 6e 74 20 4d | colour;|.  int M|
|00000ea0| 61 74 65 72 69 61 6c 5f | 4e 75 6d 62 65 72 3d 30 |aterial_|Number=0|
|00000eb0| 3b 0d 20 20 54 45 58 54 | 55 52 45 20 2a 54 65 6d |;.  TEXT|URE *Tem|
|00000ec0| 70 5f 54 65 78 3b 0d 20 | 20 69 6e 74 20 6e 75 6d |p_Tex;. | int num|
|00000ed0| 74 65 78 3b 0d 20 20 56 | 45 43 54 4f 52 20 54 50 |tex;.  V|ECTOR TP|
|00000ee0| 6f 69 6e 74 3b 0d 20 20 | 54 50 41 54 54 45 52 4e |oint;.  |TPATTERN|
|00000ef0| 20 54 50 61 74 74 65 72 | 6e 3b 0d 0d 20 20 49 4e | TPatter|n;..  IN|
|00000f00| 49 54 5f 54 50 41 54 54 | 45 52 4e 5f 46 49 45 4c |IT_TPATT|ERN_FIEL|
|00000f10| 44 53 28 28 26 54 50 61 | 74 74 65 72 6e 29 2c 30 |DS((&TPa|ttern),0|
|00000f20| 29 3b 0d 20 20 4d 61 6b | 65 5f 43 6f 6c 6f 75 72 |);.  Mak|e_Colour|
|00000f30| 41 28 26 63 6f 6c 6f 75 | 72 2c 30 2e 30 2c 30 2e |A(&colou|r,0.0,0.|
|00000f40| 30 2c 30 2e 30 2c 30 2e | 30 29 3b 0d 0d 20 20 69 |0,0.0,0.|0);..  i|
|00000f50| 66 20 28 54 65 78 74 75 | 72 65 2d 3e 54 72 61 6e |f (Textu|re->Tran|
|00000f60| 73 20 21 3d 20 4e 55 4c | 4c 29 20 0d 20 20 20 20 |s != NUL|L) .    |
|00000f70| 4d 49 6e 76 54 72 61 6e | 73 50 6f 69 6e 74 20 28 |MInvTran|sPoint (|
|00000f80| 26 54 50 6f 69 6e 74 2c | 20 49 50 6f 69 6e 74 2c |&TPoint,| IPoint,|
|00000f90| 20 54 65 78 74 75 72 65 | 2d 3e 54 72 61 6e 73 29 | Texture|->Trans)|
|00000fa0| 3b 0d 20 20 65 6c 73 65 | 20 0d 20 20 20 20 54 50 |;.  else| .    TP|
|00000fb0| 6f 69 6e 74 20 3d 20 2a | 49 50 6f 69 6e 74 3b 0d |oint = *|IPoint;.|
|00000fc0| 0d 20 20 78 20 3d 20 54 | 50 6f 69 6e 74 2e 78 3b |.  x = T|Point.x;|
|00000fd0| 0d 20 20 79 20 3d 20 54 | 50 6f 69 6e 74 2e 79 3b |.  y = T|Point.y;|
|00000fe0| 0d 20 20 7a 20 3d 20 54 | 50 6f 69 6e 74 2e 7a 3b |.  z = T|Point.z;|
|00000ff0| 0d 0d 20 20 2f 2a 20 6e | 6f 77 20 77 65 20 68 61 |..  /* n|ow we ha|
|00001000| 76 65 20 74 72 61 6e 73 | 66 6f 72 6d 65 64 20 78 |ve trans|formed x|
|00001010| 2c 20 79 2c 20 7a 20 77 | 65 20 75 73 65 20 69 6d |, y, z w|e use im|
|00001020| 61 67 65 20 6d 61 70 70 | 69 6e 67 20 72 6f 75 74 |age mapp|ing rout|
|00001030| 69 6e 65 20 2a 2f 0d 20 | 20 2f 2a 20 74 6f 20 64 |ine */. | /* to d|
|00001040| 65 74 65 72 6d 69 6e 65 | 20 74 65 78 74 75 72 65 |etermine| texture|
|00001050| 20 69 6e 64 65 78 20 2a | 2f 0d 20 20 69 66 28 6d | index *|/.  if(m|
|00001060| 61 70 20 28 78 2c 20 79 | 2c 20 7a 2c 20 26 54 50 |ap (x, y|, z, &TP|
|00001070| 61 74 74 65 72 6e 2c 20 | 54 65 78 74 75 72 65 2d |attern, |Texture-|
|00001080| 3e 49 6d 61 67 65 2c 26 | 78 63 6f 6f 72 2c 20 26 |>Image,&|xcoor, &|
|00001090| 79 63 6f 6f 72 29 29 0d | 20 20 20 20 4d 61 74 65 |ycoor)).|    Mate|
|000010a0| 72 69 61 6c 5f 4e 75 6d | 62 65 72 3d 30 3b 0d 20 |rial_Num|ber=0;. |
|000010b0| 20 20 20 65 6c 73 65 7b | 0d 20 20 20 20 69 6d 61 |   else{|.    ima|
|000010c0| 67 65 5f 63 6f 6c 6f 75 | 72 5f 61 74 28 54 65 78 |ge_colou|r_at(Tex|
|000010d0| 74 75 72 65 2d 3e 49 6d | 61 67 65 2c 78 63 6f 6f |ture->Im|age,xcoo|
|000010e0| 72 2c 20 79 63 6f 6f 72 | 2c 20 26 63 6f 6c 6f 75 |r, ycoor|, &colou|
|000010f0| 72 2c 20 26 72 65 67 5f | 6e 75 6d 62 65 72 29 3b |r, &reg_|number);|
|00001100| 0d 0d 20 20 20 20 69 66 | 20 28 54 65 78 74 75 72 |..    if| (Textur|
|00001110| 65 2d 3e 49 6d 61 67 65 | 2d 3e 43 6f 6c 6f 75 72 |e->Image|->Colour|
|00001120| 5f 4d 61 70 20 3d 3d 20 | 4e 55 4c 4c 29 20 0d 20 |_Map == |NULL) . |
|00001130| 20 20 20 20 20 4d 61 74 | 65 72 69 61 6c 5f 4e 75 |     Mat|erial_Nu|
|00001140| 6d 62 65 72 20 3d 20 28 | 69 6e 74 29 63 6f 6c 6f |mber = (|int)colo|
|00001150| 75 72 2e 52 65 64 2a 32 | 35 35 3b 0d 20 20 20 20 |ur.Red*2|55;.    |
|00001160| 65 6c 73 65 20 0d 20 20 | 20 20 20 20 4d 61 74 65 |else .  |    Mate|
|00001170| 72 69 61 6c 5f 4e 75 6d | 62 65 72 20 3d 20 72 65 |rial_Num|ber = re|
|00001180| 67 5f 6e 75 6d 62 65 72 | 3b 0d 20 20 20 20 7d 20 |g_number|;.    } |
|00001190| 0d 0d 20 20 69 66 28 4d | 61 74 65 72 69 61 6c 5f |..  if(M|aterial_|
|000011a0| 4e 75 6d 62 65 72 20 3e | 20 54 65 78 74 75 72 65 |Number >| Texture|
|000011b0| 2d 3e 4e 75 6d 5f 4f 66 | 5f 4d 61 74 73 29 0d 20 |->Num_Of|_Mats). |
|000011c0| 20 20 20 4d 61 74 65 72 | 69 61 6c 5f 4e 75 6d 62 |   Mater|ial_Numb|
|000011d0| 65 72 20 25 3d 20 54 65 | 78 74 75 72 65 2d 3e 4e |er %= Te|xture->N|
|000011e0| 75 6d 5f 4f 66 5f 4d 61 | 74 73 3b 0d 20 20 66 6f |um_Of_Ma|ts;.  fo|
|000011f0| 72 28 6e 75 6d 74 65 78 | 3d 30 2c 20 54 65 6d 70 |r(numtex|=0, Temp|
|00001200| 5f 54 65 78 20 3d 20 54 | 65 78 74 75 72 65 2d 3e |_Tex = T|exture->|
|00001210| 4d 61 74 65 72 69 61 6c | 73 3b 0d 20 20 28 54 65 |Material|s;.  (Te|
|00001220| 6d 70 5f 54 65 78 2d 3e | 4e 65 78 74 5f 4d 61 74 |mp_Tex->|Next_Mat|
|00001230| 65 72 69 61 6c 20 21 3d | 20 4e 55 4c 4c 29 20 26 |erial !=| NULL) &|
|00001240| 26 20 28 6e 75 6d 74 65 | 78 3c 4d 61 74 65 72 69 |& (numte|x<Materi|
|00001250| 61 6c 5f 4e 75 6d 62 65 | 72 29 3b 20 0d 20 20 54 |al_Numbe|r); .  T|
|00001260| 65 6d 70 5f 54 65 78 20 | 3d 20 54 65 6d 70 5f 54 |emp_Tex |= Temp_T|
|00001270| 65 78 2d 3e 4e 65 78 74 | 5f 4d 61 74 65 72 69 61 |ex->Next|_Materia|
|00001280| 6c 2c 20 6e 75 6d 74 65 | 78 2b 2b 29 0d 20 20 20 |l, numte|x++).   |
|00001290| 20 3b 20 2f 2a 20 64 6f | 20 6e 6f 74 68 69 6e 67 | ; /* do| nothing|
|000012a0| 20 2a 2f 0d 0d 20 20 72 | 65 74 75 72 6e 28 54 65 | */..  r|eturn(Te|
|000012b0| 6d 70 5f 54 65 78 29 3b | 20 20 0d 20 20 7d 0d 0d |mp_Tex);|  .  }..|
|000012c0| 54 45 58 54 55 52 45 20 | 2a 74 69 6c 65 73 5f 74 |TEXTURE |*tiles_t|
|000012d0| 65 78 74 75 72 65 28 49 | 50 6f 69 6e 74 2c 54 65 |exture(I|Point,Te|
|000012e0| 78 74 75 72 65 29 0d 56 | 45 43 54 4f 52 20 2a 49 |xture).V|ECTOR *I|
|000012f0| 50 6f 69 6e 74 3b 0d 54 | 49 4c 45 53 20 2a 54 65 |Point;.T|ILES *Te|
|00001300| 78 74 75 72 65 3b 0d 20 | 20 7b 0d 20 20 69 6e 74 |xture;. | {.  int|
|00001310| 20 42 6c 6f 63 6b 3b 0d | 20 20 56 45 43 54 4f 52 | Block;.|  VECTOR|
|00001320| 20 54 50 6f 69 6e 74 3b | 0d 0d 20 20 69 66 20 28 | TPoint;|..  if (|
|00001330| 54 65 78 74 75 72 65 2d | 3e 54 72 61 6e 73 20 21 |Texture-|>Trans !|
|00001340| 3d 20 4e 55 4c 4c 29 20 | 0d 20 20 20 20 4d 49 6e |= NULL) |.    MIn|
|00001350| 76 54 72 61 6e 73 50 6f | 69 6e 74 20 28 26 54 50 |vTransPo|int (&TP|
|00001360| 6f 69 6e 74 2c 20 49 50 | 6f 69 6e 74 2c 20 54 65 |oint, IP|oint, Te|
|00001370| 78 74 75 72 65 2d 3e 54 | 72 61 6e 73 29 3b 0d 20 |xture->T|rans);. |
|00001380| 20 65 6c 73 65 20 0d 20 | 20 20 20 54 50 6f 69 6e | else . |   TPoin|
|00001390| 74 20 3d 20 2a 49 50 6f | 69 6e 74 3b 0d 0d 20 20 |t = *IPo|int;..  |
|000013a0| 42 6c 6f 63 6b 20 3d 20 | 28 69 6e 74 29 28 46 4c |Block = |(int)(FL|
|000013b0| 4f 4f 52 28 54 50 6f 69 | 6e 74 2e 78 2b 53 6d 61 |OOR(TPoi|nt.x+Sma|
|000013c0| 6c 6c 5f 54 6f 6c 65 72 | 61 6e 63 65 29 0d 20 20 |ll_Toler|ance).  |
|000013d0| 20 20 2b 46 4c 4f 4f 52 | 28 54 50 6f 69 6e 74 2e |  +FLOOR|(TPoint.|
|000013e0| 79 2b 53 6d 61 6c 6c 5f | 54 6f 6c 65 72 61 6e 63 |y+Small_|Toleranc|
|000013f0| 65 29 0d 20 20 20 20 2b | 46 4c 4f 4f 52 28 54 50 |e).    +|FLOOR(TP|
|00001400| 6f 69 6e 74 2e 7a 2b 53 | 6d 61 6c 6c 5f 54 6f 6c |oint.z+S|mall_Tol|
|00001410| 65 72 61 6e 63 65 29 29 | 3b 0d 0d 20 20 69 66 20 |erance))|;..  if |
|00001420| 28 42 6c 6f 63 6b 20 26 | 20 31 29 0d 20 20 20 20 |(Block &| 1).    |
|00001430| 72 65 74 75 72 6e 28 54 | 65 78 74 75 72 65 2d 3e |return(T|exture->|
|00001440| 54 69 6c 65 31 29 3b 0d | 20 20 65 6c 73 65 0d 20 |Tile1);.|  else. |
|00001450| 20 20 20 72 65 74 75 72 | 6e 28 54 65 78 74 75 72 |   retur|n(Textur|
|00001460| 65 2d 3e 54 69 6c 65 32 | 29 3b 0d 0d 20 20 7d 20 |e->Tile2|);..  } |
|00001470| 0d 0d 0d 76 6f 69 64 20 | 62 75 6d 70 5f 6d 61 70 |...void |bump_map|
|00001480| 20 28 78 2c 20 79 2c 20 | 7a 2c 20 54 6e 6f 72 6d | (x, y, |z, Tnorm|
|00001490| 61 6c 2c 20 6e 6f 72 6d | 61 6c 29 0d 44 42 4c 20 |al, norm|al).DBL |
|000014a0| 78 2c 20 79 2c 20 7a 3b | 0d 54 4e 4f 52 4d 41 4c |x, y, z;|.TNORMAL|
|000014b0| 20 2a 54 6e 6f 72 6d 61 | 6c 3b 0d 56 45 43 54 4f | *Tnorma|l;.VECTO|
|000014c0| 52 20 2a 6e 6f 72 6d 61 | 6c 3b 0d 20 20 7b 0d 20 |R *norma|l;.  {. |
|000014d0| 20 44 42 4c 20 78 63 6f | 6f 72 20 3d 20 30 2e 30 | DBL xco|or = 0.0|
|000014e0| 2c 20 79 63 6f 6f 72 20 | 3d 20 30 2e 30 3b 0d 20 |, ycoor |= 0.0;. |
|000014f0| 20 69 6e 74 20 69 6e 64 | 65 78 2c 69 6e 64 65 78 | int ind|ex,index|
|00001500| 32 2c 69 6e 64 65 78 33 | 3b 0d 20 20 43 4f 4c 4f |2,index3|;.  COLO|
|00001510| 55 52 20 63 6f 6c 6f 75 | 72 2c 20 63 6f 6c 6f 75 |UR colou|r, colou|
|00001520| 72 32 2c 20 63 6f 6c 6f | 75 72 33 3b 0d 20 20 56 |r2, colo|ur3;.  V|
|00001530| 45 43 54 4f 52 20 70 31 | 2c 70 32 2c 70 33 3b 0d |ECTOR p1|,p2,p3;.|
|00001540| 20 20 56 45 43 54 4f 52 | 20 62 75 6d 70 5f 6e 6f |  VECTOR| bump_no|
|00001550| 72 6d 61 6c 3b 0d 20 20 | 56 45 43 54 4f 52 20 78 |rmal;.  |VECTOR x|
|00001560| 70 72 69 6d 65 2c 20 79 | 70 72 69 6d 65 2c 20 7a |prime, y|prime, z|
|00001570| 70 72 69 6d 65 2c 20 54 | 65 6d 70 3b 0d 20 20 44 |prime, T|emp;.  D|
|00001580| 42 4c 20 4c 65 6e 67 74 | 68 3b 0d 20 20 44 42 4c |BL Lengt|h;.  DBL|
|00001590| 20 41 6d 6f 75 6e 74 20 | 3d 20 54 6e 6f 72 6d 61 | Amount |= Tnorma|
|000015a0| 6c 2d 3e 41 6d 6f 75 6e | 74 3b 0d 20 20 49 4d 41 |l->Amoun|t;.  IMA|
|000015b0| 47 45 20 2a 49 6d 61 67 | 65 20 3d 20 54 6e 6f 72 |GE *Imag|e = Tnor|
|000015c0| 6d 61 6c 2d 3e 49 6d 61 | 67 65 3b 0d 20 20 4d 61 |mal->Ima|ge;.  Ma|
|000015d0| 6b 65 5f 43 6f 6c 6f 75 | 72 41 20 28 26 63 6f 6c |ke_Colou|rA (&col|
|000015e0| 6f 75 72 2c 30 2e 30 2c | 30 2e 30 2c 30 2e 30 2c |our,0.0,|0.0,0.0,|
|000015f0| 30 2e 30 29 3b 0d 20 20 | 4d 61 6b 65 5f 43 6f 6c |0.0);.  |Make_Col|
|00001600| 6f 75 72 41 20 28 26 63 | 6f 6c 6f 75 72 32 2c 30 |ourA (&c|olour2,0|
|00001610| 2e 30 2c 30 2e 30 2c 30 | 2e 30 2c 30 2e 30 29 3b |.0,0.0,0|.0,0.0);|
|00001620| 0d 20 20 4d 61 6b 65 5f | 43 6f 6c 6f 75 72 41 20 |.  Make_|ColourA |
|00001630| 28 26 63 6f 6c 6f 75 72 | 33 2c 30 2e 30 2c 30 2e |(&colour|3,0.0,0.|
|00001640| 30 2c 30 2e 30 2c 30 2e | 30 29 3b 0d 0d 20 20 2f |0,0.0,0.|0);..  /|
|00001650| 2a 20 67 6f 69 6e 67 20 | 74 6f 20 68 61 76 65 20 |* going |to have |
|00001660| 74 6f 20 63 68 61 6e 67 | 65 20 74 68 69 73 20 2a |to chang|e this *|
|00001670| 2f 0d 20 20 2f 2a 20 6e | 65 65 64 20 74 6f 20 6b |/.  /* n|eed to k|
|00001680| 6e 6f 77 20 69 66 20 62 | 75 6d 70 20 70 6f 69 6e |now if b|ump poin|
|00001690| 74 20 69 73 20 6f 66 66 | 20 6f 66 20 69 6d 61 67 |t is off| of imag|
|000016a0| 65 20 66 6f 72 20 61 6c | 6c 20 33 20 70 6f 69 6e |e for al|l 3 poin|
|000016b0| 74 73 20 2a 2f 0d 0d 20 | 20 69 66 28 6d 61 70 20 |ts */.. | if(map |
|000016c0| 28 78 2c 20 79 2c 20 7a | 2c 20 28 54 50 41 54 54 |(x, y, z|, (TPATT|
|000016d0| 45 52 4e 20 2a 29 54 6e | 6f 72 6d 61 6c 2c 20 49 |ERN *)Tn|ormal, I|
|000016e0| 6d 61 67 65 2c 26 78 63 | 6f 6f 72 2c 20 26 79 63 |mage,&xc|oor, &yc|
|000016f0| 6f 6f 72 29 29 0d 20 20 | 20 20 72 65 74 75 72 6e |oor)).  |  return|
|00001700| 3b 0d 20 20 65 6c 73 65 | 0d 20 20 20 20 69 6d 61 |;.  else|.    ima|
|00001710| 67 65 5f 63 6f 6c 6f 75 | 72 5f 61 74 28 49 6d 61 |ge_colou|r_at(Ima|
|00001720| 67 65 2c 78 63 6f 6f 72 | 2c 20 79 63 6f 6f 72 2c |ge,xcoor|, ycoor,|
|00001730| 20 26 63 6f 6c 6f 75 72 | 2c 20 26 69 6e 64 65 78 | &colour|, &index|
|00001740| 29 3b 0d 0d 20 20 78 63 | 6f 6f 72 2d 2d 3b 0d 20 |);..  xc|oor--;. |
|00001750| 20 79 63 6f 6f 72 2b 2b | 3b 0d 20 20 69 66 20 28 | ycoor++|;.  if (|
|00001760| 78 63 6f 6f 72 20 3c 20 | 30 2e 30 29 0d 20 20 20 |xcoor < |0.0).   |
|00001770| 20 78 63 6f 6f 72 20 2b | 3d 20 28 44 42 4c 29 49 | xcoor +|= (DBL)I|
|00001780| 6d 61 67 65 2d 3e 69 77 | 69 64 74 68 3b 0d 20 20 |mage->iw|idth;.  |
|00001790| 65 6c 73 65 20 69 66 20 | 28 78 63 6f 6f 72 20 3e |else if |(xcoor >|
|000017a0| 3d 20 49 6d 61 67 65 2d | 3e 69 77 69 64 74 68 29 |= Image-|>iwidth)|
|000017b0| 0d 20 20 20 20 78 63 6f | 6f 72 20 2d 3d 20 28 44 |.    xco|or -= (D|
|000017c0| 42 4c 29 49 6d 61 67 65 | 2d 3e 69 77 69 64 74 68 |BL)Image|->iwidth|
|000017d0| 3b 0d 20 20 69 66 20 28 | 79 63 6f 6f 72 20 3c 20 |;.  if (|ycoor < |
|000017e0| 30 2e 30 29 0d 20 20 20 | 20 79 63 6f 6f 72 20 2b |0.0).   | ycoor +|
|000017f0| 3d 20 28 44 42 4c 29 49 | 6d 61 67 65 2d 3e 69 68 |= (DBL)I|mage->ih|
|00001800| 65 69 67 68 74 3b 0d 20 | 20 65 6c 73 65 20 69 66 |eight;. | else if|
|00001810| 20 28 79 63 6f 6f 72 20 | 3e 3d 28 44 42 4c 29 20 | (ycoor |>=(DBL) |
|00001820| 49 6d 61 67 65 2d 3e 69 | 68 65 69 67 68 74 29 0d |Image->i|height).|
|00001830| 20 20 20 20 79 63 6f 6f | 72 20 2d 3d 20 28 44 42 |    ycoo|r -= (DB|
|00001840| 4c 29 49 6d 61 67 65 2d | 3e 69 68 65 69 67 68 74 |L)Image-|>iheight|
|00001850| 3b 0d 20 20 69 6d 61 67 | 65 5f 63 6f 6c 6f 75 72 |;.  imag|e_colour|
|00001860| 5f 61 74 28 49 6d 61 67 | 65 2c 78 63 6f 6f 72 2c |_at(Imag|e,xcoor,|
|00001870| 20 79 63 6f 6f 72 2c 20 | 26 63 6f 6c 6f 75 72 32 | ycoor, |&colour2|
|00001880| 2c 20 26 69 6e 64 65 78 | 32 29 3b 0d 0d 20 20 78 |, &index|2);..  x|
|00001890| 63 6f 6f 72 20 2b 3d 32 | 2e 30 3b 0d 20 20 69 66 |coor +=2|.0;.  if|
|000018a0| 20 28 78 63 6f 6f 72 20 | 3c 20 30 2e 30 29 0d 20 | (xcoor |< 0.0). |
|000018b0| 20 20 20 78 63 6f 6f 72 | 20 2b 3d 20 28 44 42 4c |   xcoor| += (DBL|
|000018c0| 29 49 6d 61 67 65 2d 3e | 69 77 69 64 74 68 3b 0d |)Image->|iwidth;.|
|000018d0| 20 20 65 6c 73 65 20 69 | 66 20 28 78 63 6f 6f 72 |  else i|f (xcoor|
|000018e0| 20 3e 3d 20 49 6d 61 67 | 65 2d 3e 69 77 69 64 74 | >= Imag|e->iwidt|
|000018f0| 68 29 0d 20 20 20 20 78 | 63 6f 6f 72 20 2d 3d 20 |h).    x|coor -= |
|00001900| 28 44 42 4c 29 49 6d 61 | 67 65 2d 3e 69 77 69 64 |(DBL)Ima|ge->iwid|
|00001910| 74 68 3b 0d 0d 20 20 69 | 6d 61 67 65 5f 63 6f 6c |th;..  i|mage_col|
|00001920| 6f 75 72 5f 61 74 28 49 | 6d 61 67 65 2c 78 63 6f |our_at(I|mage,xco|
|00001930| 6f 72 2c 20 79 63 6f 6f | 72 2c 20 26 63 6f 6c 6f |or, ycoo|r, &colo|
|00001940| 75 72 33 2c 20 26 69 6e | 64 65 78 33 29 3b 0d 0d |ur3, &in|dex3);..|
|00001950| 20 20 69 66 20 28 4f 70 | 74 69 6f 6e 73 20 26 20 |  if (Op|tions & |
|00001960| 44 45 42 55 47 47 49 4e | 47 29 0d 20 20 20 20 70 |DEBUGGIN|G).    p|
|00001970| 72 69 6e 74 66 20 28 22 | 42 75 6d 70 20 4d 61 70 |rintf ("|Bump Map|
|00001980| 20 25 67 20 25 67 20 25 | 67 20 78 63 6f 6f 72 20 | %g %g %|g xcoor |
|00001990| 25 67 20 79 63 6f 6f 72 | 20 25 67 5c 6e 22 2c 20 |%g ycoor| %g\n", |
|000019a0| 78 2c 20 79 2c 20 7a 2c | 20 78 63 6f 6f 72 2c 20 |x, y, z,| xcoor, |
|000019b0| 79 63 6f 6f 72 29 3b 0d | 0d 20 20 69 66 20 28 49 |ycoor);.|.  if (I|
|000019c0| 6d 61 67 65 2d 3e 43 6f | 6c 6f 75 72 5f 4d 61 70 |mage->Co|lour_Map|
|000019d0| 20 3d 3d 20 4e 55 4c 4c | 20 7c 7c 20 0d 20 20 20 | == NULL| || .   |
|000019e0| 20 49 6d 61 67 65 2d 3e | 55 73 65 5f 43 6f 6c 6f | Image->|Use_Colo|
|000019f0| 75 72 5f 46 6c 61 67 20 | 29 20 0d 20 20 20 20 7b |ur_Flag |) .    {|
|00001a00| 0d 20 20 20 20 70 31 2e | 78 20 3d 20 30 3b 20 0d |.    p1.|x = 0; .|
|00001a10| 20 20 20 20 70 31 2e 79 | 20 3d 0d 20 20 20 20 41 |    p1.y| =.    A|
|00001a20| 6d 6f 75 6e 74 2a 28 30 | 2e 32 32 39 2a 63 6f 6c |mount*(0|.229*col|
|00001a30| 6f 75 72 2e 52 65 64 2b | 30 2e 35 38 37 2a 63 6f |our.Red+|0.587*co|
|00001a40| 6c 6f 75 72 2e 47 72 65 | 65 6e 2b 30 2e 31 31 34 |lour.Gre|en+0.114|
|00001a50| 2a 63 6f 6c 6f 75 72 2e | 42 6c 75 65 29 3b 0d 20 |*colour.|Blue);. |
|00001a60| 20 20 20 70 31 2e 7a 20 | 3d 20 30 3b 0d 20 20 20 |   p1.z |= 0;.   |
|00001a70| 20 70 32 2e 78 20 3d 20 | 30 3b 20 0d 20 20 20 20 | p2.x = |0; .    |
|00001a80| 70 32 2e 79 20 3d 0d 20 | 20 20 20 41 6d 6f 75 6e |p2.y =. |   Amoun|
|00001a90| 74 2a 28 30 2e 32 32 39 | 2a 63 6f 6c 6f 75 72 32 |t*(0.229|*colour2|
|00001aa0| 2e 52 65 64 2b 30 2e 35 | 38 37 2a 63 6f 6c 6f 75 |.Red+0.5|87*colou|
|00001ab0| 72 32 2e 47 72 65 65 6e | 2b 30 2e 31 31 34 2a 63 |r2.Green|+0.114*c|
|00001ac0| 6f 6c 6f 75 72 32 2e 42 | 6c 75 65 29 3b 0d 20 20 |olour2.B|lue);.  |
|00001ad0| 20 20 70 32 2e 7a 20 3d | 20 31 3b 0d 20 20 20 20 |  p2.z =| 1;.    |
|00001ae0| 70 33 2e 78 20 3d 20 31 | 3b 20 0d 20 20 20 20 70 |p3.x = 1|; .    p|
|00001af0| 33 2e 79 20 3d 0d 20 20 | 20 20 41 6d 6f 75 6e 74 |3.y =.  |  Amount|
|00001b00| 2a 28 30 2e 32 32 39 2a | 63 6f 6c 6f 75 72 33 2e |*(0.229*|colour3.|
|00001b10| 52 65 64 2b 30 2e 35 38 | 37 2a 63 6f 6c 6f 75 72 |Red+0.58|7*colour|
|00001b20| 33 2e 47 72 65 65 6e 2b | 30 2e 31 31 34 2a 63 6f |3.Green+|0.114*co|
|00001b30| 6c 6f 75 72 33 2e 42 6c | 75 65 29 3b 0d 20 20 20 |lour3.Bl|ue);.   |
|00001b40| 20 70 33 2e 7a 20 3d 20 | 31 3b 0d 20 20 20 20 7d | p3.z = |1;.    }|
|00001b50| 0d 20 20 65 6c 73 65 20 | 0d 20 20 20 20 7b 0d 20 |.  else |.    {. |
|00001b60| 20 20 20 70 31 2e 78 20 | 3d 20 30 3b 20 0d 20 20 |   p1.x |= 0; .  |
|00001b70| 20 20 70 31 2e 79 20 3d | 20 41 6d 6f 75 6e 74 20 |  p1.y =| Amount |
|00001b80| 2a 20 69 6e 64 65 78 3b | 0d 20 20 20 20 70 31 2e |* index;|.    p1.|
|00001b90| 7a 20 3d 20 30 3b 0d 20 | 20 20 20 70 32 2e 78 20 |z = 0;. |   p2.x |
|00001ba0| 3d 20 30 3b 20 0d 20 20 | 20 20 70 32 2e 79 20 3d |= 0; .  |  p2.y =|
|00001bb0| 20 41 6d 6f 75 6e 74 20 | 2a 20 69 6e 64 65 78 32 | Amount |* index2|
|00001bc0| 3b 0d 20 20 20 20 70 32 | 2e 7a 20 3d 20 31 3b 0d |;.    p2|.z = 1;.|
|00001bd0| 20 20 20 20 70 33 2e 78 | 20 3d 20 31 3b 20 0d 20 |    p3.x| = 1; . |
|00001be0| 20 20 20 70 33 2e 79 20 | 3d 20 41 6d 6f 75 6e 74 |   p3.y |= Amount|
|00001bf0| 20 2a 20 69 6e 64 65 78 | 33 3b 0d 20 20 20 20 70 | * index|3;.    p|
|00001c00| 33 2e 7a 20 3d 20 31 3b | 0d 20 20 20 20 7d 0d 20 |3.z = 1;|.    }. |
|00001c10| 20 2f 2a 20 77 65 20 68 | 61 76 65 20 70 6f 69 6e | /* we h|ave poin|
|00001c20| 74 73 20 31 2c 32 2c 33 | 20 66 6f 72 20 61 20 74 |ts 1,2,3| for a t|
|00001c30| 72 69 61 6e 67 6c 65 20 | 6e 6f 77 20 77 65 20 6e |riangle |now we n|
|00001c40| 65 65 64 20 74 68 65 20 | 73 75 72 66 61 63 65 20 |eed the |surface |
|00001c50| 6e 6f 72 6d 61 6c 20 66 | 6f 72 20 69 74 0d 2a 2f |normal f|or it.*/|
|00001c60| 20 20 0d 20 20 56 53 75 | 62 20 28 78 70 72 69 6d |  .  VSu|b (xprim|
|00001c70| 65 2c 20 70 31 2c 20 70 | 32 29 3b 0d 20 20 56 53 |e, p1, p|2);.  VS|
|00001c80| 75 62 20 28 79 70 72 69 | 6d 65 2c 20 70 33 2c 20 |ub (ypri|me, p3, |
|00001c90| 70 32 29 3b 0d 20 20 56 | 43 72 6f 73 73 20 28 62 |p2);.  V|Cross (b|
|00001ca0| 75 6d 70 5f 6e 6f 72 6d | 61 6c 2c 20 79 70 72 69 |ump_norm|al, ypri|
|00001cb0| 6d 65 2c 20 78 70 72 69 | 6d 65 29 3b 0d 20 20 56 |me, xpri|me);.  V|
|00001cc0| 4e 6f 72 6d 61 6c 69 7a | 65 28 62 75 6d 70 5f 6e |Normaliz|e(bump_n|
|00001cd0| 6f 72 6d 61 6c 2c 20 62 | 75 6d 70 5f 6e 6f 72 6d |ormal, b|ump_norm|
|00001ce0| 61 6c 29 3b 0d 0d 20 20 | 20 20 4d 61 6b 65 5f 56 |al);..  |  Make_V|
|00001cf0| 65 63 74 6f 72 28 26 79 | 70 72 69 6d 65 2c 6e 6f |ector(&y|prime,no|
|00001d00| 72 6d 61 6c 2d 3e 78 2c | 6e 6f 72 6d 61 6c 2d 3e |rmal->x,|normal->|
|00001d10| 79 2c 6e 6f 72 6d 61 6c | 2d 3e 7a 29 3b 0d 20 20 |y,normal|->z);.  |
|00001d20| 4d 61 6b 65 5f 56 65 63 | 74 6f 72 28 26 54 65 6d |Make_Vec|tor(&Tem|
|00001d30| 70 2c 30 2e 30 2c 31 2e | 30 2c 30 2e 30 29 3b 0d |p,0.0,1.|0,0.0);.|
|00001d40| 20 20 56 43 72 6f 73 73 | 20 28 78 70 72 69 6d 65 |  VCross| (xprime|
|00001d50| 2c 79 70 72 69 6d 65 2c | 54 65 6d 70 29 3b 0d 20 |,yprime,|Temp);. |
|00001d60| 20 56 4c 65 6e 67 74 68 | 28 4c 65 6e 67 74 68 2c | VLength|(Length,|
|00001d70| 78 70 72 69 6d 65 29 3b | 0d 20 20 69 66 28 4c 65 |xprime);|.  if(Le|
|00001d80| 6e 67 74 68 20 3c 20 31 | 2e 30 65 2d 39 29 0d 20 |ngth < 1|.0e-9). |
|00001d90| 20 20 20 7b 0d 20 20 20 | 20 69 66 28 66 61 62 73 |   {.   | if(fabs|
|00001da0| 28 6e 6f 72 6d 61 6c 2d | 3e 79 20 2d 20 31 2e 30 |(normal-|>y - 1.0|
|00001db0| 29 3c 53 6d 61 6c 6c 5f | 54 6f 6c 65 72 61 6e 63 |)<Small_|Toleranc|
|00001dc0| 65 29 0d 20 20 20 20 20 | 20 7b 0d 20 20 20 20 20 |e).     | {.     |
|00001dd0| 20 4d 61 6b 65 5f 56 65 | 63 74 6f 72 28 26 79 70 | Make_Ve|ctor(&yp|
|00001de0| 72 69 6d 65 2c 30 2e 30 | 2c 31 2e 30 2c 30 2e 30 |rime,0.0|,1.0,0.0|
|00001df0| 29 3b 0d 20 20 20 20 20 | 20 4d 61 6b 65 5f 56 65 |);.     | Make_Ve|
|00001e00| 63 74 6f 72 28 26 78 70 | 72 69 6d 65 2c 31 2e 30 |ctor(&xp|rime,1.0|
|00001e10| 2c 30 2e 30 2c 30 2e 30 | 29 3b 0d 20 20 20 20 20 |,0.0,0.0|);.     |
|00001e20| 20 4c 65 6e 67 74 68 20 | 3d 20 31 2e 30 3b 0d 20 | Length |= 1.0;. |
|00001e30| 20 20 20 20 20 7d 0d 20 | 20 20 20 65 6c 73 65 0d |     }. |   else.|
|00001e40| 20 20 20 20 20 20 7b 0d | 20 20 20 20 20 20 4d 61 |      {.|      Ma|
|00001e50| 6b 65 5f 56 65 63 74 6f | 72 28 26 79 70 72 69 6d |ke_Vecto|r(&yprim|
|00001e60| 65 2c 30 2e 30 2c 2d 31 | 2e 30 2c 30 2e 30 29 3b |e,0.0,-1|.0,0.0);|
|00001e70| 0d 20 20 20 20 20 20 4d | 61 6b 65 5f 56 65 63 74 |.      M|ake_Vect|
|00001e80| 6f 72 28 26 78 70 72 69 | 6d 65 2c 31 2e 30 2c 30 |or(&xpri|me,1.0,0|
|00001e90| 2e 30 2c 30 2e 30 29 3b | 0d 20 20 20 20 20 20 4c |.0,0.0);|.      L|
|00001ea0| 65 6e 67 74 68 20 3d 20 | 31 2e 30 3b 0d 20 20 20 |ength = |1.0;.   |
|00001eb0| 20 20 20 7d 0d 20 20 20 | 20 7d 0d 20 20 56 53 63 |   }.   | }.  VSc|
|00001ec0| 61 6c 65 28 78 70 72 69 | 6d 65 2c 78 70 72 69 6d |ale(xpri|me,xprim|
|00001ed0| 65 2c 31 2e 30 2f 4c 65 | 6e 67 74 68 29 3b 0d 20 |e,1.0/Le|ngth);. |
|00001ee0| 20 56 43 72 6f 73 73 20 | 28 7a 70 72 69 6d 65 2c | VCross |(zprime,|
|00001ef0| 78 70 72 69 6d 65 2c 79 | 70 72 69 6d 65 29 3b 0d |xprime,y|prime);.|
|00001f00| 20 20 56 4e 6f 72 6d 61 | 6c 69 7a 65 28 7a 70 72 |  VNorma|lize(zpr|
|00001f10| 69 6d 65 2c 7a 70 72 69 | 6d 65 29 3b 0d 20 20 56 |ime,zpri|me);.  V|
|00001f20| 53 63 61 6c 65 28 78 70 | 72 69 6d 65 2c 78 70 72 |Scale(xp|rime,xpr|
|00001f30| 69 6d 65 2c 62 75 6d 70 | 5f 6e 6f 72 6d 61 6c 2e |ime,bump|_normal.|
|00001f40| 78 29 3b 0d 20 20 56 53 | 63 61 6c 65 28 79 70 72 |x);.  VS|cale(ypr|
|00001f50| 69 6d 65 2c 79 70 72 69 | 6d 65 2c 62 75 6d 70 5f |ime,ypri|me,bump_|
|00001f60| 6e 6f 72 6d 61 6c 2e 79 | 29 3b 0d 20 20 56 53 63 |normal.y|);.  VSc|
|00001f70| 61 6c 65 28 7a 70 72 69 | 6d 65 2c 7a 70 72 69 6d |ale(zpri|me,zprim|
|00001f80| 65 2c 62 75 6d 70 5f 6e | 6f 72 6d 61 6c 2e 7a 29 |e,bump_n|ormal.z)|
|00001f90| 3b 0d 20 20 56 41 64 64 | 28 54 65 6d 70 2c 78 70 |;.  VAdd|(Temp,xp|
|00001fa0| 72 69 6d 65 2c 79 70 72 | 69 6d 65 29 3b 0d 20 20 |rime,ypr|ime);.  |
|00001fb0| 56 41 64 64 28 2a 6e 6f | 72 6d 61 6c 2c 54 65 6d |VAdd(*no|rmal,Tem|
|00001fc0| 70 2c 7a 70 72 69 6d 65 | 29 3b 0d 20 20 56 4e 6f |p,zprime|);.  VNo|
|00001fd0| 72 6d 61 6c 69 7a 65 28 | 2a 6e 6f 72 6d 61 6c 2c |rmalize(|*normal,|
|00001fe0| 2a 6e 6f 72 6d 61 6c 29 | 3b 0d 0d 20 20 72 65 74 |*normal)|;..  ret|
|00001ff0| 75 72 6e 3b 0d 20 20 7d | 0d 0d 0d 73 74 61 74 69 |urn;.  }|...stati|
|00002000| 63 20 76 6f 69 64 20 69 | 6d 61 67 65 5f 63 6f 6c |c void i|mage_col|
|00002010| 6f 75 72 5f 61 74 28 49 | 6d 61 67 65 2c 20 78 63 |our_at(I|mage, xc|
|00002020| 6f 6f 72 2c 20 79 63 6f | 6f 72 2c 20 63 6f 6c 6f |oor, yco|or, colo|
|00002030| 75 72 2c 20 69 6e 64 65 | 78 29 0d 49 4d 41 47 45 |ur, inde|x).IMAGE|
|00002040| 20 2a 49 6d 61 67 65 3b | 20 20 20 20 20 0d 44 42 | *Image;|     .DB|
|00002050| 4c 20 78 63 6f 6f 72 2c | 20 79 63 6f 6f 72 3b 0d |L xcoor,| ycoor;.|
|00002060| 43 4f 4c 4f 55 52 20 2a | 63 6f 6c 6f 75 72 3b 0d |COLOUR *|colour;.|
|00002070| 69 6e 74 20 2a 69 6e 64 | 65 78 3b 0d 20 20 7b 20 |int *ind|ex;.  { |
|00002080| 20 0d 0d 20 20 73 77 69 | 74 63 68 28 49 6d 61 67 | ..  swi|tch(Imag|
|00002090| 65 2d 3e 49 6e 74 65 72 | 70 6f 6c 61 74 69 6f 6e |e->Inter|polation|
|000020a0| 5f 54 79 70 65 29 0d 20 | 20 7b 0d 20 20 63 61 73 |_Type). | {.  cas|
|000020b0| 65 20 4e 4f 5f 49 4e 54 | 45 52 50 4f 4c 41 54 49 |e NO_INT|ERPOLATI|
|000020c0| 4f 4e 3a 0d 20 20 20 20 | 6e 6f 5f 69 6e 74 65 72 |ON:.    |no_inter|
|000020d0| 70 6f 6c 61 74 69 6f 6e | 28 49 6d 61 67 65 2c 78 |polation|(Image,x|
|000020e0| 63 6f 6f 72 2c 79 63 6f | 6f 72 2c 63 6f 6c 6f 75 |coor,yco|or,colou|
|000020f0| 72 2c 69 6e 64 65 78 29 | 3b 0d 20 20 20 20 62 72 |r,index)|;.    br|
|00002100| 65 61 6b 3b 0d 20 20 64 | 65 66 61 75 6c 74 3a 20 |eak;.  d|efault: |
|00002110| 0d 20 20 20 20 49 6e 74 | 65 72 70 28 49 6d 61 67 |.    Int|erp(Imag|
|00002120| 65 2c 78 63 6f 6f 72 2c | 20 79 63 6f 6f 72 2c 20 |e,xcoor,| ycoor, |
|00002130| 63 6f 6c 6f 75 72 2c 20 | 69 6e 64 65 78 29 3b 0d |colour, |index);.|
|00002140| 20 20 20 20 62 72 65 61 | 6b 3b 0d 20 20 7d 20 20 |    brea|k;.  }  |
|00002150| 20 0d 20 20 7d 0d 0d 0d | 0d 2f 2a 20 4d 61 70 20 | .  }...|./* Map |
|00002160| 61 20 70 6f 69 6e 74 20 | 28 78 2c 20 79 2c 20 7a |a point |(x, y, z|
|00002170| 29 20 6f 6e 20 61 20 63 | 79 6c 69 6e 64 65 72 20 |) on a c|ylinder |
|00002180| 6f 66 20 72 61 64 69 75 | 73 20 31 2c 20 68 65 69 |of radiu|s 1, hei|
|00002190| 67 68 74 20 31 2c 20 74 | 68 61 74 20 68 61 73 20 |ght 1, t|hat has |
|000021a0| 69 74 73 0d 20 20 20 61 | 78 69 73 20 6f 66 20 73 |its.   a|xis of s|
|000021b0| 79 6d 6d 65 74 72 79 20 | 61 6c 6f 6e 67 20 74 68 |ymmetry |along th|
|000021c0| 65 20 79 2d 61 78 69 73 | 20 74 6f 20 74 68 65 20 |e y-axis| to the |
|000021d0| 73 71 75 61 72 65 20 5b | 30 2c 31 5d 78 5b 30 2c |square [|0,1]x[0,|
|000021e0| 31 5d 2e 20 2a 2f 0d 73 | 74 61 74 69 63 20 69 6e |1]. */.s|tatic in|
|000021f0| 74 20 63 79 6c 69 6e 64 | 72 69 63 61 6c 5f 69 6d |t cylind|rical_im|
|00002200| 61 67 65 5f 6d 61 70 20 | 28 78 2c 20 79 2c 20 7a |age_map |(x, y, z|
|00002210| 2c 20 49 6d 61 67 65 2c | 20 75 2c 20 76 29 0d 44 |, Image,| u, v).D|
|00002220| 42 4c 20 78 2c 20 79 2c | 20 7a 3b 0d 49 4d 41 47 |BL x, y,| z;.IMAG|
|00002230| 45 20 2a 49 6d 61 67 65 | 3b 0d 44 42 4c 20 2a 75 |E *Image|;.DBL *u|
|00002240| 2c 20 2a 76 3b 0d 20 20 | 7b 0d 20 20 44 42 4c 20 |, *v;.  |{.  DBL |
|00002250| 6c 65 6e 2c 20 74 68 65 | 74 61 3b 0d 0d 20 20 69 |len, the|ta;..  i|
|00002260| 66 20 28 28 49 6d 61 67 | 65 2d 3e 4f 6e 63 65 5f |f ((Imag|e->Once_|
|00002270| 46 6c 61 67 29 20 26 26 | 20 28 28 79 20 3c 20 30 |Flag) &&| ((y < 0|
|00002280| 2e 30 29 20 7c 7c 20 28 | 79 20 3e 20 31 2e 30 29 |.0) || (|y > 1.0)|
|00002290| 29 29 0d 20 20 20 20 72 | 65 74 75 72 6e 20 30 3b |)).    r|eturn 0;|
|000022a0| 0d 20 20 2a 76 20 3d 20 | 66 6d 6f 64 20 28 79 20 |.  *v = |fmod (y |
|000022b0| 2a 20 49 6d 61 67 65 2d | 3e 68 65 69 67 68 74 2c |* Image-|>height,|
|000022c0| 20 49 6d 61 67 65 2d 3e | 68 65 69 67 68 74 29 3b | Image->|height);|
|000022d0| 0d 0d 20 20 2f 2a 20 4d | 61 6b 65 20 73 75 72 65 |..  /* M|ake sure|
|000022e0| 20 74 68 69 73 20 76 65 | 63 74 6f 72 20 69 73 20 | this ve|ctor is |
|000022f0| 6f 6e 20 74 68 65 20 75 | 6e 69 74 20 73 70 68 65 |on the u|nit sphe|
|00002300| 72 65 2e 20 2a 2f 0d 20 | 20 6c 65 6e 20 3d 20 73 |re. */. | len = s|
|00002310| 71 72 74 28 78 2a 78 20 | 2b 20 79 2a 79 20 2b 20 |qrt(x*x |+ y*y + |
|00002320| 7a 2a 7a 29 3b 0d 20 20 | 69 66 20 28 6c 65 6e 20 |z*z);.  |if (len |
|00002330| 3d 3d 20 30 2e 30 29 0d | 20 20 20 20 72 65 74 75 |== 0.0).|    retu|
|00002340| 72 6e 20 30 3b 0d 20 20 | 65 6c 73 65 20 0d 20 20 |rn 0;.  |else .  |
|00002350| 20 20 7b 0d 20 20 20 20 | 78 20 2f 3d 20 6c 65 6e |  {.    |x /= len|
|00002360| 3b 0d 20 20 20 20 7a 20 | 2f 3d 20 6c 65 6e 3b 0d |;.    z |/= len;.|
|00002370| 20 20 20 20 7d 20 20 20 | 0d 20 20 2f 2a 20 44 65 |    }   |.  /* De|
|00002380| 74 65 72 6d 69 6e 65 20 | 69 74 73 20 61 6e 67 6c |termine |its angl|
|00002390| 65 20 66 72 6f 6d 20 74 | 68 65 20 70 6f 69 6e 74 |e from t|he point|
|000023a0| 20 28 31 2c 20 30 2c 20 | 30 29 20 69 6e 20 74 68 | (1, 0, |0) in th|
|000023b0| 65 20 78 2d 7a 20 70 6c | 61 6e 65 2e 20 2a 2f 0d |e x-z pl|ane. */.|
|000023c0| 20 20 20 20 6c 65 6e 20 | 3d 20 73 71 72 74 28 78 |    len |= sqrt(x|
|000023d0| 2a 78 20 2b 20 7a 2a 7a | 29 3b 0d 20 20 69 66 20 |*x + z*z|);.  if |
|000023e0| 28 6c 65 6e 20 3d 3d 20 | 30 2e 30 29 0d 20 20 20 |(len == |0.0).   |
|000023f0| 20 72 65 74 75 72 6e 20 | 30 3b 0d 20 20 65 6c 73 | return |0;.  els|
|00002400| 65 20 0d 20 20 20 20 7b | 0d 20 20 20 20 69 66 20 |e .    {|.    if |
|00002410| 28 7a 20 3d 3d 20 30 2e | 30 29 0d 20 20 20 20 20 |(z == 0.|0).     |
|00002420| 20 69 66 20 28 78 20 3e | 20 30 29 0d 20 20 20 20 | if (x >| 0).    |
|00002430| 20 20 20 20 74 68 65 74 | 61 20 3d 20 30 2e 30 3b |    thet|a = 0.0;|
|00002440| 0d 20 20 20 20 20 20 65 | 6c 73 65 0d 20 20 20 20 |.      e|lse.    |
|00002450| 20 20 20 20 74 68 65 74 | 61 20 3d 20 4d 5f 50 49 |    thet|a = M_PI|
|00002460| 3b 0d 20 20 20 20 65 6c | 73 65 20 0d 20 20 20 20 |;.    el|se .    |
|00002470| 20 20 7b 0d 20 20 20 20 | 20 20 74 68 65 74 61 20 |  {.    |  theta |
|00002480| 3d 20 61 63 6f 73 28 78 | 20 2f 20 6c 65 6e 29 3b |= acos(x| / len);|
|00002490| 0d 20 20 20 20 20 20 69 | 66 20 28 7a 20 3c 20 30 |.      i|f (z < 0|
|000024a0| 2e 30 29 20 74 68 65 74 | 61 20 3d 20 32 2e 30 20 |.0) thet|a = 2.0 |
|000024b0| 2a 20 4d 5f 50 49 20 2d | 20 74 68 65 74 61 3b 0d |* M_PI -| theta;.|
|000024c0| 20 20 20 20 20 20 7d 0d | 20 20 20 20 74 68 65 74 |      }.|    thet|
|000024d0| 61 20 2f 3d 20 32 2e 30 | 20 2a 20 4d 5f 50 49 3b |a /= 2.0| * M_PI;|
|000024e0| 20 2f 2a 20 54 68 69 73 | 20 77 69 6c 6c 20 62 65 | /* This| will be|
|000024f0| 20 66 72 6f 6d 20 30 20 | 74 6f 20 31 20 2a 2f 0d | from 0 |to 1 */.|
|00002500| 20 20 20 20 7d 0d 20 20 | 2a 75 20 3d 20 28 74 68 |    }.  |*u = (th|
|00002510| 65 74 61 20 2a 20 49 6d | 61 67 65 2d 3e 77 69 64 |eta * Im|age->wid|
|00002520| 74 68 29 3b 0d 20 20 72 | 65 74 75 72 6e 20 31 3b |th);.  r|eturn 1;|
|00002530| 0d 20 20 7d 0d 0d 2f 2a | 20 4d 61 70 20 61 20 70 |.  }../*| Map a p|
|00002540| 6f 69 6e 74 20 28 78 2c | 20 79 2c 20 7a 29 20 6f |oint (x,| y, z) o|
|00002550| 6e 20 61 20 74 6f 72 75 | 73 20 20 74 6f 20 61 20 |n a toru|s  to a |
|00002560| 32 2d 64 20 69 6d 61 67 | 65 2e 20 2a 2f 0d 73 74 |2-d imag|e. */.st|
|00002570| 61 74 69 63 20 69 6e 74 | 20 74 6f 72 75 73 5f 69 |atic int| torus_i|
|00002580| 6d 61 67 65 5f 6d 61 70 | 20 28 78 2c 20 79 2c 20 |mage_map| (x, y, |
|00002590| 7a 2c 20 49 6d 61 67 65 | 2c 20 75 2c 20 76 29 0d |z, Image|, u, v).|
|000025a0| 44 42 4c 20 78 2c 20 79 | 2c 20 7a 3b 0d 49 4d 41 |DBL x, y|, z;.IMA|
|000025b0| 47 45 20 2a 49 6d 61 67 | 65 3b 0d 44 42 4c 20 2a |GE *Imag|e;.DBL *|
|000025c0| 75 2c 20 2a 76 3b 0d 20 | 20 7b 0d 20 20 44 42 4c |u, *v;. | {.  DBL|
|000025d0| 20 6c 65 6e 2c 20 70 68 | 69 2c 20 74 68 65 74 61 | len, ph|i, theta|
|000025e0| 3b 0d 20 20 44 42 4c 20 | 72 30 3b 0d 0d 20 20 72 |;.  DBL |r0;..  r|
|000025f0| 30 20 3d 20 49 6d 61 67 | 65 2d 3e 47 72 61 64 69 |0 = Imag|e->Gradi|
|00002600| 65 6e 74 2e 78 3b 0d 0d | 20 20 2f 2a 20 44 65 74 |ent.x;..|  /* Det|
|00002610| 65 72 6d 69 6e 65 20 69 | 74 73 20 61 6e 67 6c 65 |ermine i|ts angle|
|00002620| 20 66 72 6f 6d 20 74 68 | 65 20 78 2d 61 78 69 73 | from th|e x-axis|
|00002630| 2e 20 2a 2f 0d 20 20 6c | 65 6e 20 3d 20 73 71 72 |. */.  l|en = sqr|
|00002640| 74 28 78 2a 78 20 2b 20 | 7a 2a 7a 29 3b 0d 20 20 |t(x*x + |z*z);.  |
|00002650| 69 66 20 28 6c 65 6e 20 | 3d 3d 20 30 2e 30 29 0d |if (len |== 0.0).|
|00002660| 20 20 20 20 72 65 74 75 | 72 6e 20 30 3b 0d 20 20 |    retu|rn 0;.  |
|00002670| 65 6c 73 65 20 0d 20 20 | 20 20 7b 0d 20 20 20 20 |else .  |  {.    |
|00002680| 69 66 20 28 7a 20 3d 3d | 20 30 2e 30 29 0d 20 20 |if (z ==| 0.0).  |
|00002690| 20 20 20 20 69 66 20 28 | 78 20 3e 20 30 29 0d 20 |    if (|x > 0). |
|000026a0| 20 20 20 20 20 20 20 74 | 68 65 74 61 20 3d 20 30 |       t|heta = 0|
|000026b0| 2e 30 3b 0d 20 20 20 20 | 20 20 65 6c 73 65 0d 20 |.0;.    |  else. |
|000026c0| 20 20 20 20 20 20 20 74 | 68 65 74 61 20 3d 20 4d |       t|heta = M|
|000026d0| 5f 50 49 3b 0d 20 20 20 | 20 65 6c 73 65 20 0d 20 |_PI;.   | else . |
|000026e0| 20 20 20 20 20 7b 0d 20 | 20 20 20 20 20 74 68 65 |     {. |     the|
|000026f0| 74 61 20 3d 20 61 63 6f | 73 28 78 20 2f 20 6c 65 |ta = aco|s(x / le|
|00002700| 6e 29 3b 0d 20 20 20 20 | 20 20 69 66 20 28 7a 20 |n);.    |  if (z |
|00002710| 3c 20 30 2e 30 29 20 74 | 68 65 74 61 20 3d 20 32 |< 0.0) t|heta = 2|
|00002720| 2e 30 20 2a 20 4d 5f 50 | 49 20 2d 20 74 68 65 74 |.0 * M_P|I - thet|
|00002730| 61 3b 0d 20 20 20 20 20 | 20 7d 0d 20 20 20 20 7d |a;.     | }.    }|
|00002740| 0d 20 20 74 68 65 74 61 | 20 3d 20 30 2e 30 20 2d |.  theta| = 0.0 -|
|00002750| 20 74 68 65 74 61 3b 0d | 0d 20 20 2f 2a 20 4e 6f | theta;.|.  /* No|
|00002760| 77 20 72 6f 74 61 74 65 | 20 61 62 6f 75 74 20 74 |w rotate| about t|
|00002770| 68 65 20 79 2d 61 78 69 | 73 20 74 6f 20 67 65 74 |he y-axi|s to get|
|00002780| 20 74 68 65 20 70 6f 69 | 6e 74 20 28 78 2c 20 79 | the poi|nt (x, y|
|00002790| 2c 20 7a 29 20 69 6e 74 | 6f 20 74 68 65 20 78 2d |, z) int|o the x-|
|000027a0| 79 20 70 6c 61 6e 65 2e | 20 2a 2f 0d 20 20 78 20 |y plane.| */.  x |
|000027b0| 3d 20 6c 65 6e 20 2d 20 | 72 30 3b 0d 20 20 6c 65 |= len - |r0;.  le|
|000027c0| 6e 20 3d 20 73 71 72 74 | 28 78 20 2a 20 78 20 2b |n = sqrt|(x * x +|
|000027d0| 20 79 20 2a 20 79 29 3b | 0d 20 20 70 68 69 20 3d | y * y);|.  phi =|
|000027e0| 20 61 63 6f 73 28 2d 78 | 20 2f 20 6c 65 6e 29 3b | acos(-x| / len);|
|000027f0| 0d 20 20 69 66 20 28 79 | 20 3e 20 30 2e 30 29 20 |.  if (y| > 0.0) |
|00002800| 70 68 69 20 3d 20 32 2e | 30 20 2a 20 4d 5f 50 49 |phi = 2.|0 * M_PI|
|00002810| 20 2d 20 70 68 69 3b 0d | 0d 20 20 2f 2a 20 44 65 | - phi;.|.  /* De|
|00002820| 74 65 72 6d 69 6e 65 20 | 74 68 65 20 70 61 72 61 |termine |the para|
|00002830| 6d 65 74 72 69 63 20 63 | 6f 6f 72 64 69 6e 61 74 |metric c|oordinat|
|00002840| 65 73 2e 20 2a 2f 0d 20 | 20 74 68 65 74 61 20 2f |es. */. | theta /|
|00002850| 3d 20 32 2e 30 20 2a 20 | 4d 5f 50 49 3b 0d 20 20 |= 2.0 * |M_PI;.  |
|00002860| 70 68 69 20 2f 3d 20 32 | 2e 30 20 2a 20 4d 5f 50 |phi /= 2|.0 * M_P|
|00002870| 49 3b 0d 20 20 2a 75 20 | 3d 20 28 2d 74 68 65 74 |I;.  *u |= (-thet|
|00002880| 61 20 2a 20 49 6d 61 67 | 65 2d 3e 77 69 64 74 68 |a * Imag|e->width|
|00002890| 29 3b 0d 20 20 2a 76 20 | 3d 20 28 70 68 69 20 2a |);.  *v |= (phi *|
|000028a0| 20 49 6d 61 67 65 2d 3e | 68 65 69 67 68 74 29 3b | Image->|height);|
|000028b0| 0d 20 20 72 65 74 75 72 | 6e 20 31 3b 0d 20 20 7d |.  retur|n 1;.  }|
|000028c0| 0d 0d 2f 2a 20 4d 61 70 | 20 61 20 70 6f 69 6e 74 |../* Map| a point|
|000028d0| 20 28 78 2c 20 79 2c 20 | 7a 29 20 6f 6e 20 61 20 | (x, y, |z) on a |
|000028e0| 73 70 68 65 72 65 20 6f | 66 20 72 61 64 69 75 73 |sphere o|f radius|
|000028f0| 20 31 20 74 6f 20 61 20 | 32 2d 64 20 69 6d 61 67 | 1 to a |2-d imag|
|00002900| 65 2e 20 28 4f 72 20 69 | 73 20 69 74 20 74 68 65 |e. (Or i|s it the|
|00002910| 0d 20 20 20 6f 74 68 65 | 72 20 77 61 79 20 61 72 |.   othe|r way ar|
|00002920| 6f 75 6e 64 3f 29 20 2a | 2f 0d 73 74 61 74 69 63 |ound?) *|/.static|
|00002930| 20 69 6e 74 20 73 70 68 | 65 72 69 63 61 6c 5f 69 | int sph|erical_i|
|00002940| 6d 61 67 65 5f 6d 61 70 | 20 28 78 2c 20 79 2c 20 |mage_map| (x, y, |
|00002950| 7a 2c 20 49 6d 61 67 65 | 2c 20 75 2c 20 76 29 0d |z, Image|, u, v).|
|00002960| 44 42 4c 20 78 2c 20 79 | 2c 20 7a 3b 0d 49 4d 41 |DBL x, y|, z;.IMA|
|00002970| 47 45 20 2a 49 6d 61 67 | 65 3b 0d 44 42 4c 20 2a |GE *Imag|e;.DBL *|
|00002980| 75 2c 20 2a 76 3b 0d 20 | 20 7b 0d 20 20 44 42 4c |u, *v;. | {.  DBL|
|00002990| 20 6c 65 6e 2c 20 70 68 | 69 2c 20 74 68 65 74 61 | len, ph|i, theta|
|000029a0| 3b 0d 0d 20 20 2f 2a 20 | 4d 61 6b 65 20 73 75 72 |;..  /* |Make sur|
|000029b0| 65 20 74 68 69 73 20 76 | 65 63 74 6f 72 20 69 73 |e this v|ector is|
|000029c0| 20 6f 6e 20 74 68 65 20 | 75 6e 69 74 20 73 70 68 | on the |unit sph|
|000029d0| 65 72 65 2e 20 2a 2f 0d | 20 20 6c 65 6e 20 3d 20 |ere. */.|  len = |
|000029e0| 73 71 72 74 28 78 2a 78 | 20 2b 20 79 2a 79 20 2b |sqrt(x*x| + y*y +|
|000029f0| 20 7a 2a 7a 29 3b 0d 20 | 20 69 66 20 28 6c 65 6e | z*z);. | if (len|
|00002a00| 20 3d 3d 20 30 2e 30 29 | 0d 20 20 20 20 72 65 74 | == 0.0)|.    ret|
|00002a10| 75 72 6e 20 30 3b 0d 20 | 20 65 6c 73 65 20 0d 20 |urn 0;. | else . |
|00002a20| 20 20 20 7b 0d 20 20 20 | 20 78 20 2f 3d 20 6c 65 |   {.   | x /= le|
|00002a30| 6e 3b 0d 20 20 20 20 79 | 20 2f 3d 20 6c 65 6e 3b |n;.    y| /= len;|
|00002a40| 0d 20 20 20 20 7a 20 2f | 3d 20 6c 65 6e 3b 0d 20 |.    z /|= len;. |
|00002a50| 20 20 20 7d 0d 20 20 2f | 2a 20 44 65 74 65 72 6d |   }.  /|* Determ|
|00002a60| 69 6e 65 20 69 74 73 20 | 61 6e 67 6c 65 20 66 72 |ine its |angle fr|
|00002a70| 6f 6d 20 74 68 65 20 78 | 2d 7a 20 70 6c 61 6e 65 |om the x|-z plane|
|00002a80| 2e 20 2a 2f 0d 20 20 20 | 20 70 68 69 20 3d 20 30 |. */.   | phi = 0|
|00002a90| 2e 35 20 2b 20 61 73 69 | 6e 28 79 29 20 2f 20 4d |.5 + asi|n(y) / M|
|00002aa0| 5f 50 49 3b 20 2f 2a 20 | 54 68 69 73 20 77 69 6c |_PI; /* |This wil|
|00002ab0| 6c 20 62 65 20 66 72 6f | 6d 20 30 20 74 6f 20 31 |l be fro|m 0 to 1|
|00002ac0| 20 2a 2f 0d 0d 20 20 2f | 2a 20 44 65 74 65 72 6d | */..  /|* Determ|
|00002ad0| 69 6e 65 20 69 74 73 20 | 61 6e 67 6c 65 20 66 72 |ine its |angle fr|
|00002ae0| 6f 6d 20 74 68 65 20 70 | 6f 69 6e 74 20 28 31 2c |om the p|oint (1,|
|00002af0| 20 30 2c 20 30 29 20 69 | 6e 20 74 68 65 20 78 2d | 0, 0) i|n the x-|
|00002b00| 7a 20 70 6c 61 6e 65 2e | 20 2a 2f 0d 20 20 6c 65 |z plane.| */.  le|
|00002b10| 6e 20 3d 20 73 71 72 74 | 28 78 2a 78 20 2b 20 7a |n = sqrt|(x*x + z|
|00002b20| 2a 7a 29 3b 0d 20 20 69 | 66 20 28 6c 65 6e 20 3d |*z);.  i|f (len =|
|00002b30| 3d 20 30 2e 30 29 20 0d | 20 20 20 20 7b 0d 20 20 |= 0.0) .|    {.  |
|00002b40| 20 20 2f 2a 20 54 68 69 | 73 20 70 6f 69 6e 74 20 |  /* Thi|s point |
|00002b50| 69 73 20 61 74 20 6f 6e | 65 20 6f 66 20 74 68 65 |is at on|e of the|
|00002b60| 20 70 6f 6c 65 73 2e 20 | 41 6e 79 20 76 61 6c 75 | poles. |Any valu|
|00002b70| 65 20 6f 66 20 78 63 6f | 6f 72 64 20 77 69 6c 6c |e of xco|ord will|
|00002b80| 20 62 65 20 6f 6b 2e 2e | 2e 2a 2f 0d 20 20 20 20 | be ok..|.*/.    |
|00002b90| 74 68 65 74 61 20 3d 20 | 30 3b 0d 20 20 20 20 7d |theta = |0;.    }|
|00002ba0| 0d 20 20 65 6c 73 65 20 | 0d 20 20 20 20 7b 0d 20 |.  else |.    {. |
|00002bb0| 20 20 20 69 66 20 28 7a | 20 3d 3d 20 30 2e 30 29 |   if (z| == 0.0)|
|00002bc0| 0d 20 20 20 20 20 20 69 | 66 20 28 78 20 3e 20 30 |.      i|f (x > 0|
|00002bd0| 29 0d 20 20 20 20 20 20 | 20 20 74 68 65 74 61 20 |).      |  theta |
|00002be0| 3d 20 30 2e 30 3b 0d 20 | 20 20 20 20 20 65 6c 73 |= 0.0;. |     els|
|00002bf0| 65 0d 20 20 20 20 20 20 | 20 20 74 68 65 74 61 20 |e.      |  theta |
|00002c00| 3d 20 4d 5f 50 49 3b 0d | 20 20 20 20 65 6c 73 65 |= M_PI;.|    else|
|00002c10| 20 0d 20 20 20 20 20 20 | 7b 0d 20 20 20 20 20 20 | .      |{.      |
|00002c20| 74 68 65 74 61 20 3d 20 | 61 63 6f 73 28 78 20 2f |theta = |acos(x /|
|00002c30| 20 6c 65 6e 29 3b 0d 20 | 20 20 20 20 20 69 66 20 | len);. |     if |
|00002c40| 28 7a 20 3c 20 30 2e 30 | 29 20 74 68 65 74 61 20 |(z < 0.0|) theta |
|00002c50| 3d 20 32 2e 30 20 2a 20 | 4d 5f 50 49 20 2d 20 74 |= 2.0 * |M_PI - t|
|00002c60| 68 65 74 61 3b 0d 20 20 | 20 20 20 20 7d 0d 20 20 |heta;.  |    }.  |
|00002c70| 20 20 74 68 65 74 61 20 | 2f 3d 20 32 2e 30 20 2a |  theta |/= 2.0 *|
|00002c80| 20 4d 5f 50 49 3b 20 2f | 2a 20 54 68 69 73 20 77 | M_PI; /|* This w|
|00002c90| 69 6c 6c 20 62 65 20 66 | 72 6f 6d 20 30 20 74 6f |ill be f|rom 0 to|
|00002ca0| 20 31 20 2a 2f 0d 20 20 | 20 20 7d 0d 20 20 2a 75 | 1 */.  |  }.  *u|
|00002cb0| 20 3d 20 28 74 68 65 74 | 61 20 2a 20 49 6d 61 67 | = (thet|a * Imag|
|00002cc0| 65 2d 3e 77 69 64 74 68 | 29 3b 0d 20 20 2a 76 20 |e->width|);.  *v |
|00002cd0| 3d 20 28 70 68 69 20 2a | 20 49 6d 61 67 65 2d 3e |= (phi *| Image->|
|00002ce0| 68 65 69 67 68 74 29 3b | 0d 20 20 72 65 74 75 72 |height);|.  retur|
|00002cf0| 6e 20 31 3b 0d 20 20 7d | 0d 0d 2f 2a 0d 20 20 20 |n 1;.  }|../*.   |
|00002d00| 32 2d 44 20 74 6f 20 33 | 2d 44 20 50 72 6f 63 65 |2-D to 3|-D Proce|
|00002d10| 64 75 72 61 6c 20 54 65 | 78 74 75 72 65 20 4d 61 |dural Te|xture Ma|
|00002d20| 70 70 69 6e 67 20 6f 66 | 20 61 20 42 69 74 6d 61 |pping of| a Bitma|
|00002d30| 70 70 65 64 20 49 6d 61 | 67 65 20 6f 6e 74 6f 20 |pped Ima|ge onto |
|00002d40| 61 6e 20 4f 62 6a 65 63 | 74 3a 0d 09 20 20 20 0d |an Objec|t:..   .|
|00002d50| 20 20 20 53 69 6d 70 6c | 69 73 74 69 63 20 70 6c |   Simpl|istic pl|
|00002d60| 61 6e 61 72 20 6d 65 74 | 68 6f 64 20 6f 66 20 6f |anar met|hod of o|
|00002d70| 62 6a 65 63 74 20 69 6d | 61 67 65 20 70 72 6f 6a |bject im|age proj|
|00002d80| 65 63 74 69 6f 6e 20 64 | 65 76 69 73 65 64 20 62 |ection d|evised b|
|00002d90| 79 20 44 4b 42 20 61 6e | 64 20 41 41 43 2e 0d 0d |y DKB an|d AAC...|
|00002da0| 20 20 20 31 2e 20 54 72 | 61 6e 73 66 6f 72 6d 20 |   1. Tr|ansform |
|00002db0| 74 65 78 74 75 72 65 20 | 69 6e 20 33 2d 44 20 73 |texture |in 3-D s|
|00002dc0| 70 61 63 65 20 69 66 20 | 72 65 71 75 65 73 74 65 |pace if |requeste|
|00002dd0| 64 2e 0d 20 20 20 32 2e | 20 44 65 74 65 72 6d 69 |d..   2.| Determi|
|00002de0| 6e 65 20 6c 6f 63 61 6c | 20 6f 62 6a 65 63 74 20 |ne local| object |
|00002df0| 32 2d 64 20 63 6f 6f 72 | 64 73 20 66 72 6f 6d 20 |2-d coor|ds from |
|00002e00| 33 2d 64 20 63 6f 6f 72 | 64 73 20 62 79 20 3c 58 |3-d coor|ds by <X|
|00002e10| 20 59 20 5a 3e 20 74 72 | 69 70 6c 65 2e 0d 20 20 | Y Z> tr|iple..  |
|00002e20| 20 33 2e 20 52 65 74 75 | 72 6e 20 70 69 78 65 6c | 3. Retu|rn pixel|
|00002e30| 20 63 6f 6c 6f 72 20 76 | 61 6c 75 65 20 61 74 20 | color v|alue at |
|00002e40| 74 68 61 74 20 70 6f 73 | 69 74 69 6f 6e 20 6f 6e |that pos|ition on|
|00002e50| 20 74 68 65 20 32 2d 64 | 20 70 6c 61 6e 65 20 6f | the 2-d| plane o|
|00002e60| 66 20 22 49 6d 61 67 65 | 22 2e 0d 20 20 20 33 2e |f "Image|"..   3.|
|00002e70| 20 4d 61 70 20 63 6f 6c | 6f 75 72 20 76 61 6c 75 | Map col|our valu|
|00002e80| 65 20 69 6e 20 49 6d 61 | 67 65 20 5b 30 2e 2e 32 |e in Ima|ge [0..2|
|00002e90| 35 35 5d 20 74 6f 20 61 | 20 6d 6f 72 65 20 6e 6f |55] to a| more no|
|00002ea0| 72 6d 61 6c 20 63 6f 6c | 6f 75 72 20 72 61 6e 67 |rmal col|our rang|
|00002eb0| 65 20 5b 30 2e 2e 31 5d | 2e 0d 2a 2f 0d 0d 2f 2a |e [0..1]|..*/../*|
|00002ec0| 20 52 65 74 75 72 6e 20 | 30 20 69 66 20 74 68 65 | Return |0 if the|
|00002ed0| 72 65 20 69 73 20 6e 6f | 20 63 6f 6c 6f 72 20 61 |re is no| color a|
|00002ee0| 74 20 74 68 69 73 20 70 | 6f 69 6e 74 20 28 69 2e |t this p|oint (i.|
|00002ef0| 65 2e 20 69 6e 76 69 73 | 69 62 6c 65 29 2c 20 72 |e. invis|ible), r|
|00002f00| 65 74 75 72 6e 20 31 0d | 20 20 20 69 66 20 61 20 |eturn 1.|   if a |
|00002f10| 67 6f 6f 64 20 6d 61 70 | 70 69 6e 67 20 69 73 20 |good map|ping is |
|00002f20| 66 6f 75 6e 64 2e 20 2a | 2f 0d 73 74 61 74 69 63 |found. *|/.static|
|00002f30| 20 69 6e 74 20 70 6c 61 | 6e 61 72 5f 69 6d 61 67 | int pla|nar_imag|
|00002f40| 65 5f 6d 61 70 28 78 2c | 20 79 2c 20 7a 2c 20 49 |e_map(x,| y, z, I|
|00002f50| 6d 61 67 65 2c 20 75 2c | 20 76 29 0d 44 42 4c 20 |mage, u,| v).DBL |
|00002f60| 78 2c 20 79 2c 20 7a 3b | 0d 49 4d 41 47 45 20 2a |x, y, z;|.IMAGE *|
|00002f70| 49 6d 61 67 65 3b 0d 44 | 42 4c 20 2a 75 2c 20 2a |Image;.D|BL *u, *|
|00002f80| 76 3b 0d 20 20 7b 20 20 | 0d 20 20 69 66 20 28 49 |v;.  {  |.  if (I|
|00002f90| 6d 61 67 65 20 2d 3e 20 | 47 72 61 64 69 65 6e 74 |mage -> |Gradient|
|00002fa0| 2e 78 20 21 3d 20 30 2e | 30 29 20 0d 20 20 20 20 |.x != 0.|0) .    |
|00002fb0| 7b 0d 20 20 20 20 69 66 | 20 28 28 49 6d 61 67 65 |{.    if| ((Image|
|00002fc0| 2d 3e 4f 6e 63 65 5f 46 | 6c 61 67 29 20 26 26 0d |->Once_F|lag) &&.|
|00002fd0| 20 20 20 20 20 20 28 28 | 78 20 3c 20 30 2e 30 29 |      ((|x < 0.0)|
|00002fe0| 20 7c 7c 20 28 78 20 3e | 20 31 2e 30 29 29 29 0d | || (x >| 1.0))).|
|00002ff0| 20 20 20 20 20 20 72 65 | 74 75 72 6e 20 30 3b 0d |      re|turn 0;.|
|00003000| 20 20 20 20 69 66 20 28 | 49 6d 61 67 65 20 2d 3e |    if (|Image ->|
|00003010| 20 47 72 61 64 69 65 6e | 74 2e 78 20 3e 20 30 29 | Gradien|t.x > 0)|
|00003020| 0d 20 20 20 20 20 20 2a | 75 20 3d 20 66 6d 6f 64 |.      *|u = fmod|
|00003030| 20 28 78 20 2a 20 49 6d | 61 67 65 2d 3e 77 69 64 | (x * Im|age->wid|
|00003040| 74 68 2c 20 49 6d 61 67 | 65 2d 3e 77 69 64 74 68 |th, Imag|e->width|
|00003050| 29 3b 0d 20 20 20 20 65 | 6c 73 65 0d 20 20 20 20 |);.    e|lse.    |
|00003060| 20 20 2a 76 20 3d 20 66 | 6d 6f 64 20 28 78 20 2a |  *v = f|mod (x *|
|00003070| 20 49 6d 61 67 65 2d 3e | 68 65 69 67 68 74 2c 20 | Image->|height, |
|00003080| 49 6d 61 67 65 2d 3e 68 | 65 69 67 68 74 29 3b 0d |Image->h|eight);.|
|00003090| 20 20 20 20 7d 0d 20 20 | 69 66 20 28 49 6d 61 67 |    }.  |if (Imag|
|000030a0| 65 20 2d 3e 20 47 72 61 | 64 69 65 6e 74 2e 79 20 |e -> Gra|dient.y |
|000030b0| 21 3d 20 30 2e 30 29 20 | 0d 20 20 20 20 7b 0d 20 |!= 0.0) |.    {. |
|000030c0| 20 20 20 69 66 20 28 28 | 49 6d 61 67 65 2d 3e 4f |   if ((|Image->O|
|000030d0| 6e 63 65 5f 46 6c 61 67 | 29 20 26 26 0d 20 20 20 |nce_Flag|) &&.   |
|000030e0| 20 20 20 28 28 79 20 3c | 20 30 2e 30 29 20 7c 7c |   ((y <| 0.0) |||
|000030f0| 20 28 79 20 3e 20 31 2e | 30 29 29 29 0d 20 20 20 | (y > 1.|0))).   |
|00003100| 20 20 20 72 65 74 75 72 | 6e 20 30 3b 0d 20 20 20 |   retur|n 0;.   |
|00003110| 20 69 66 20 28 49 6d 61 | 67 65 20 2d 3e 20 47 72 | if (Ima|ge -> Gr|
|00003120| 61 64 69 65 6e 74 2e 79 | 20 3e 20 30 29 0d 20 20 |adient.y| > 0).  |
|00003130| 20 20 20 20 2a 75 20 3d | 20 66 6d 6f 64 20 28 79 |    *u =| fmod (y|
|00003140| 20 2a 20 49 6d 61 67 65 | 2d 3e 77 69 64 74 68 2c | * Image|->width,|
|00003150| 20 49 6d 61 67 65 2d 3e | 77 69 64 74 68 29 3b 0d | Image->|width);.|
|00003160| 20 20 20 20 65 6c 73 65 | 0d 20 20 20 20 20 20 2a |    else|.      *|
|00003170| 76 20 3d 20 66 6d 6f 64 | 20 28 79 20 2a 20 49 6d |v = fmod| (y * Im|
|00003180| 61 67 65 2d 3e 68 65 69 | 67 68 74 2c 20 49 6d 61 |age->hei|ght, Ima|
|00003190| 67 65 2d 3e 68 65 69 67 | 68 74 29 3b 0d 20 20 20 |ge->heig|ht);.   |
|000031a0| 20 7d 0d 20 20 69 66 20 | 28 49 6d 61 67 65 20 2d | }.  if |(Image -|
|000031b0| 3e 20 47 72 61 64 69 65 | 6e 74 2e 7a 20 21 3d 20 |> Gradie|nt.z != |
|000031c0| 30 2e 30 29 20 0d 20 20 | 20 20 7b 0d 20 20 20 20 |0.0) .  |  {.    |
|000031d0| 69 66 20 28 28 49 6d 61 | 67 65 2d 3e 4f 6e 63 65 |if ((Ima|ge->Once|
|000031e0| 5f 46 6c 61 67 29 20 26 | 26 0d 20 20 20 20 20 20 |_Flag) &|&.      |
|000031f0| 28 28 7a 20 3c 20 30 2e | 30 29 20 7c 7c 20 28 7a |((z < 0.|0) || (z|
|00003200| 20 3e 20 31 2e 30 29 29 | 29 0d 20 20 20 20 20 20 | > 1.0))|).      |
|00003210| 72 65 74 75 72 6e 20 30 | 3b 0d 20 20 20 20 69 66 |return 0|;.    if|
|00003220| 20 28 49 6d 61 67 65 20 | 2d 3e 20 47 72 61 64 69 | (Image |-> Gradi|
|00003230| 65 6e 74 2e 7a 20 3e 20 | 30 29 0d 20 20 20 20 20 |ent.z > |0).     |
|00003240| 20 2a 75 20 3d 20 66 6d | 6f 64 20 28 7a 20 2a 20 | *u = fm|od (z * |
|00003250| 49 6d 61 67 65 2d 3e 77 | 69 64 74 68 2c 20 49 6d |Image->w|idth, Im|
|00003260| 61 67 65 2d 3e 77 69 64 | 74 68 29 3b 0d 20 20 20 |age->wid|th);.   |
|00003270| 20 65 6c 73 65 0d 20 20 | 20 20 20 20 2a 76 20 3d | else.  |    *v =|
|00003280| 20 66 6d 6f 64 20 28 7a | 20 2a 20 49 6d 61 67 65 | fmod (z| * Image|
|00003290| 2d 3e 68 65 69 67 68 74 | 2c 20 49 6d 61 67 65 2d |->height|, Image-|
|000032a0| 3e 68 65 69 67 68 74 29 | 3b 0d 20 20 20 20 7d 0d |>height)|;.    }.|
|000032b0| 20 20 72 65 74 75 72 6e | 20 31 3b 0d 20 20 7d 0d |  return| 1;.  }.|
|000032c0| 2f 2a 20 4d 61 70 20 72 | 65 74 75 72 6e 73 20 31 |/* Map r|eturns 1|
|000032d0| 20 69 66 20 6e 6f 20 63 | 6f 6c 6f 72 20 66 6f 75 | if no c|olor fou|
|000032e0| 6e 64 20 28 69 6e 76 69 | 73 69 62 6c 65 29 20 6f |nd (invi|sible) o|
|000032f0| 72 20 30 20 69 66 20 63 | 6f 6c 6f 72 20 66 6f 75 |r 0 if c|olor fou|
|00003300| 6e 64 20 2a 2f 20 0d 69 | 6e 74 20 6d 61 70 20 28 |nd */ .i|nt map (|
|00003310| 78 2c 20 79 2c 20 7a 2c | 20 54 50 61 74 74 65 72 |x, y, z,| TPatter|
|00003320| 6e 2c 20 49 6d 61 67 65 | 2c 20 78 63 6f 6f 72 2c |n, Image|, xcoor,|
|00003330| 20 79 63 6f 6f 72 29 0d | 44 42 4c 20 78 2c 20 79 | ycoor).|DBL x, y|
|00003340| 2c 20 7a 3b 0d 54 50 41 | 54 54 45 52 4e 20 2a 54 |, z;.TPA|TTERN *T|
|00003350| 50 61 74 74 65 72 6e 3b | 0d 49 4d 41 47 45 20 2a |Pattern;|.IMAGE *|
|00003360| 49 6d 61 67 65 3b 0d 44 | 42 4c 20 2a 78 63 6f 6f |Image;.D|BL *xcoo|
|00003370| 72 2c 20 2a 79 63 6f 6f | 72 3b 0d 20 20 7b 0d 20 |r, *ycoo|r;.  {. |
|00003380| 20 2f 2a 20 64 65 74 65 | 72 6d 69 6e 65 20 6c 6f | /* dete|rmine lo|
|00003390| 63 61 6c 20 6f 62 6a 65 | 63 74 20 32 2d 64 20 63 |cal obje|ct 2-d c|
|000033a0| 6f 6f 72 64 73 20 66 72 | 6f 6d 20 33 2d 64 20 63 |oords fr|om 3-d c|
|000033b0| 6f 6f 72 64 73 20 2a 2f | 0d 20 20 2f 2a 20 22 75 |oords */|.  /* "u|
|000033c0| 6e 77 72 61 70 22 20 6f | 62 6a 65 63 74 20 32 2d |nwrap" o|bject 2-|
|000033d0| 64 20 63 6f 6f 72 64 20 | 6f 6e 74 6f 20 66 6c 61 |d coord |onto fla|
|000033e0| 74 20 32 2d 64 20 70 6c | 61 6e 65 20 2a 2f 0d 20 |t 2-d pl|ane */. |
|000033f0| 20 2f 2a 20 72 65 74 75 | 72 6e 20 70 69 78 65 6c | /* retu|rn pixel|
|00003400| 20 63 6f 6c 6f 72 20 76 | 61 6c 75 65 20 61 74 20 | color v|alue at |
|00003410| 74 68 61 74 20 70 6f 73 | 6e 20 6f 6e 20 32 2d 64 |that pos|n on 2-d|
|00003420| 20 70 6c 61 6e 65 20 2a | 2f 0d 0d 20 20 2f 2a 20 | plane *|/..  /* |
|00003430| 54 68 69 73 20 63 61 75 | 73 65 73 20 70 72 6f 62 |This cau|ses prob|
|00003440| 6c 65 6d 73 20 73 6f 20 | 6c 65 74 27 73 20 64 6f |lems so |let's do|
|00003450| 20 77 69 74 68 6f 75 74 | 20 69 74 20 66 6f 72 20 | without| it for |
|00003460| 74 68 69 73 20 72 65 6c | 65 61 73 65 0d 20 20 20 |this rel|ease.   |
|00003470| 69 66 20 28 54 50 61 74 | 74 65 72 6e 2d 3e 54 75 |if (TPat|tern->Tu|
|00003480| 72 62 75 6c 65 6e 63 65 | 20 21 3d 20 30 2e 30 29 |rbulence| != 0.0)|
|00003490| 0d 20 20 20 20 20 7b 0d | 20 20 20 20 20 20 44 54 |.     {.|      DT|
|000034a0| 75 72 62 75 6c 65 6e 63 | 65 20 28 26 54 65 78 74 |urbulenc|e (&Text|
|000034b0| 75 72 65 54 75 72 62 75 | 6c 65 6e 63 65 2c 20 78 |ureTurbu|lence, x|
|000034c0| 2c 20 79 2c 20 7a 2c 54 | 50 61 74 74 65 72 6e 2d |, y, z,T|Pattern-|
|000034d0| 3e 4f 63 74 61 76 65 73 | 29 3b 0d 20 20 20 20 20 |>Octaves|);.     |
|000034e0| 20 78 20 2b 3d 20 54 65 | 78 74 75 72 65 54 75 72 | x += Te|xtureTur|
|000034f0| 62 75 6c 65 6e 63 65 2e | 78 20 2a 20 54 50 61 74 |bulence.|x * TPat|
|00003500| 74 65 72 6e 2d 3e 54 75 | 72 62 75 6c 65 6e 63 65 |tern->Tu|rbulence|
|00003510| 3b 0d 20 20 20 20 20 20 | 79 20 2b 3d 20 54 65 78 |;.      |y += Tex|
|00003520| 74 75 72 65 54 75 72 62 | 75 6c 65 6e 63 65 2e 79 |tureTurb|ulence.y|
|00003530| 20 2a 20 54 50 61 74 74 | 65 72 6e 2d 3e 54 75 72 | * TPatt|ern->Tur|
|00003540| 62 75 6c 65 6e 63 65 3b | 0d 20 20 20 20 20 20 7a |bulence;|.      z|
|00003550| 20 2b 3d 20 54 65 78 74 | 75 72 65 54 75 72 62 75 | += Text|ureTurbu|
|00003560| 6c 65 6e 63 65 2e 7a 20 | 2a 20 54 50 61 74 74 65 |lence.z |* TPatte|
|00003570| 72 6e 2d 3e 54 75 72 62 | 75 6c 65 6e 63 65 3b 0d |rn->Turb|ulence;.|
|00003580| 20 20 20 20 20 7d 0d 20 | 20 20 2a 2f 0d 0d 20 20 |     }. |  */..  |
|00003590| 2f 2a 20 4e 6f 77 20 64 | 65 74 65 72 6d 69 6e 65 |/* Now d|etermine|
|000035a0| 20 77 68 69 63 68 20 6d | 61 70 70 65 72 20 74 6f | which m|apper to|
|000035b0| 20 75 73 65 2e 20 2a 2f | 0d 20 20 73 77 69 74 63 | use. */|.  switc|
|000035c0| 68 20 28 49 6d 61 67 65 | 2d 3e 4d 61 70 5f 54 79 |h (Image|->Map_Ty|
|000035d0| 70 65 29 20 0d 20 20 7b | 0d 20 20 63 61 73 65 20 |pe) .  {|.  case |
|000035e0| 50 4c 41 4e 41 52 5f 4d | 41 50 3a 0d 20 20 20 20 |PLANAR_M|AP:.    |
|000035f0| 69 66 20 28 21 70 6c 61 | 6e 61 72 5f 69 6d 61 67 |if (!pla|nar_imag|
|00003600| 65 5f 6d 61 70 28 78 2c | 20 79 2c 20 7a 2c 20 49 |e_map(x,| y, z, I|
|00003610| 6d 61 67 65 2c 20 78 63 | 6f 6f 72 2c 20 79 63 6f |mage, xc|oor, yco|
|00003620| 6f 72 29 29 20 0d 20 20 | 20 20 20 20 72 65 74 75 |or)) .  |    retu|
|00003630| 72 6e 28 31 29 3b 0d 20 | 20 20 20 62 72 65 61 6b |rn(1);. |   break|
|00003640| 3b 0d 20 20 63 61 73 65 | 20 53 50 48 45 52 49 43 |;.  case| SPHERIC|
|00003650| 41 4c 5f 4d 41 50 3a 0d | 20 20 20 20 69 66 20 28 |AL_MAP:.|    if (|
|00003660| 21 73 70 68 65 72 69 63 | 61 6c 5f 69 6d 61 67 65 |!spheric|al_image|
|00003670| 5f 6d 61 70 28 78 2c 20 | 79 2c 20 7a 2c 49 6d 61 |_map(x, |y, z,Ima|
|00003680| 67 65 2c 20 78 63 6f 6f | 72 2c 20 79 63 6f 6f 72 |ge, xcoo|r, ycoor|
|00003690| 29 29 20 0d 20 20 20 20 | 20 20 72 65 74 75 72 6e |)) .    |  return|
|000036a0| 28 31 29 3b 0d 20 20 20 | 20 62 72 65 61 6b 3b 0d |(1);.   | break;.|
|000036b0| 20 20 63 61 73 65 20 43 | 59 4c 49 4e 44 52 49 43 |  case C|YLINDRIC|
|000036c0| 41 4c 5f 4d 41 50 3a 0d | 20 20 20 20 69 66 20 28 |AL_MAP:.|    if (|
|000036d0| 21 63 79 6c 69 6e 64 72 | 69 63 61 6c 5f 69 6d 61 |!cylindr|ical_ima|
|000036e0| 67 65 5f 6d 61 70 28 78 | 2c 20 79 2c 20 7a 2c 49 |ge_map(x|, y, z,I|
|000036f0| 6d 61 67 65 2c 20 78 63 | 6f 6f 72 2c 20 79 63 6f |mage, xc|oor, yco|
|00003700| 6f 72 29 29 20 0d 20 20 | 20 20 20 20 72 65 74 75 |or)) .  |    retu|
|00003710| 72 6e 28 31 29 3b 0d 20 | 20 20 20 62 72 65 61 6b |rn(1);. |   break|
|00003720| 3b 0d 20 20 63 61 73 65 | 20 54 4f 52 55 53 5f 4d |;.  case| TORUS_M|
|00003730| 41 50 3a 0d 20 20 20 20 | 69 66 20 28 21 74 6f 72 |AP:.    |if (!tor|
|00003740| 75 73 5f 69 6d 61 67 65 | 5f 6d 61 70 28 78 2c 20 |us_image|_map(x, |
|00003750| 79 2c 20 7a 2c 49 6d 61 | 67 65 2c 20 78 63 6f 6f |y, z,Ima|ge, xcoo|
|00003760| 72 2c 20 79 63 6f 6f 72 | 29 29 20 0d 20 20 20 20 |r, ycoor|)) .    |
|00003770| 20 20 72 65 74 75 72 6e | 28 31 29 3b 0d 20 20 20 |  return|(1);.   |
|00003780| 20 62 72 65 61 6b 3b 0d | 20 20 64 65 66 61 75 6c | break;.|  defaul|
|00003790| 74 3a 0d 20 20 20 20 69 | 66 20 28 21 70 6c 61 6e |t:.    i|f (!plan|
|000037a0| 61 72 5f 69 6d 61 67 65 | 5f 6d 61 70 28 78 2c 20 |ar_image|_map(x, |
|000037b0| 79 2c 20 7a 2c 49 6d 61 | 67 65 2c 20 78 63 6f 6f |y, z,Ima|ge, xcoo|
|000037c0| 72 2c 20 79 63 6f 6f 72 | 29 29 20 0d 20 20 20 20 |r, ycoor|)) .    |
|000037d0| 20 20 72 65 74 75 72 6e | 28 31 29 3b 0d 20 20 20 |  return|(1);.   |
|000037e0| 20 62 72 65 61 6b 3b 0d | 20 20 7d 0d 0d 20 20 2f | break;.|  }..  /|
|000037f0| 2a 20 4e 6f 77 20 6d 61 | 6b 65 20 73 75 72 65 20 |* Now ma|ke sure |
|00003800| 74 68 65 20 70 6f 69 6e | 74 20 69 73 20 6f 6e 20 |the poin|t is on |
|00003810| 74 68 65 20 69 6d 61 67 | 65 20 2a 2f 0d 20 20 2a |the imag|e */.  *|
|00003820| 79 63 6f 6f 72 20 2b 3d | 20 53 6d 61 6c 6c 5f 54 |ycoor +=| Small_T|
|00003830| 6f 6c 65 72 61 6e 63 65 | 3b 0d 20 20 2a 78 63 6f |olerance|;.  *xco|
|00003840| 6f 72 20 2b 3d 20 53 6d | 61 6c 6c 5f 54 6f 6c 65 |or += Sm|all_Tole|
|00003850| 72 61 6e 63 65 3b 0d 20 | 20 2f 2a 20 43 6f 6d 70 |rance;. | /* Comp|
|00003860| 65 6e 73 61 74 65 20 66 | 6f 72 20 79 20 63 6f 6f |ensate f|or y coo|
|00003870| 72 64 69 6e 61 74 65 73 | 20 6f 6e 20 74 68 65 20 |rdinates| on the |
|00003880| 69 6d 61 67 65 73 20 62 | 65 69 6e 67 20 75 70 73 |images b|eing ups|
|00003890| 69 64 65 64 6f 77 6e 20 | 2a 2f 0d 20 20 2a 79 63 |idedown |*/.  *yc|
|000038a0| 6f 6f 72 20 3d 20 28 44 | 42 4c 29 49 6d 61 67 65 |oor = (D|BL)Image|
|000038b0| 2d 3e 69 68 65 69 67 68 | 74 20 2d 20 2a 79 63 6f |->iheigh|t - *yco|
|000038c0| 6f 72 3b 0d 0d 20 20 69 | 66 20 28 2a 78 63 6f 6f |or;..  i|f (*xcoo|
|000038d0| 72 20 3c 20 30 2e 30 29 | 0d 20 20 20 20 2a 78 63 |r < 0.0)|.    *xc|
|000038e0| 6f 6f 72 20 2b 3d 28 44 | 42 4c 29 20 49 6d 61 67 |oor +=(D|BL) Imag|
|000038f0| 65 2d 3e 69 77 69 64 74 | 68 3b 0d 20 20 65 6c 73 |e->iwidt|h;.  els|
|00003900| 65 20 69 66 20 28 2a 78 | 63 6f 6f 72 20 3e 3d 28 |e if (*x|coor >=(|
|00003910| 44 42 4c 29 49 6d 61 67 | 65 2d 3e 69 77 69 64 74 |DBL)Imag|e->iwidt|
|00003920| 68 29 0d 20 20 20 20 2a | 78 63 6f 6f 72 20 2d 3d |h).    *|xcoor -=|
|00003930| 20 28 44 42 4c 29 49 6d | 61 67 65 2d 3e 69 77 69 | (DBL)Im|age->iwi|
|00003940| 64 74 68 3b 0d 0d 20 20 | 69 66 20 28 2a 79 63 6f |dth;..  |if (*yco|
|00003950| 6f 72 20 3c 20 30 2e 30 | 29 0d 20 20 20 20 2a 79 |or < 0.0|).    *y|
|00003960| 63 6f 6f 72 20 2b 3d 20 | 28 44 42 4c 29 49 6d 61 |coor += |(DBL)Ima|
|00003970| 67 65 2d 3e 69 68 65 69 | 67 68 74 3b 0d 20 20 65 |ge->ihei|ght;.  e|
|00003980| 6c 73 65 20 69 66 20 28 | 2a 79 63 6f 6f 72 20 3e |lse if (|*ycoor >|
|00003990| 3d 20 28 44 42 4c 29 49 | 6d 61 67 65 2d 3e 69 68 |= (DBL)I|mage->ih|
|000039a0| 65 69 67 68 74 29 0d 20 | 20 20 20 2a 79 63 6f 6f |eight). |   *ycoo|
|000039b0| 72 20 2d 3d 20 28 44 42 | 4c 29 49 6d 61 67 65 2d |r -= (DB|L)Image-|
|000039c0| 3e 69 68 65 69 67 68 74 | 3b 0d 0d 20 20 69 66 20 |>iheight|;..  if |
|000039d0| 28 4f 70 74 69 6f 6e 73 | 20 26 20 44 45 42 55 47 |(Options| & DEBUG|
|000039e0| 47 49 4e 47 29 0d 20 20 | 20 20 70 72 69 6e 74 66 |GING).  |  printf|
|000039f0| 20 28 22 5c 6e 6d 61 70 | 20 25 67 20 25 67 20 25 | ("\nmap| %g %g %|
|00003a00| 67 20 78 63 6f 6f 72 20 | 25 67 20 79 63 6f 6f 72 |g xcoor |%g ycoor|
|00003a10| 20 25 67 20 69 68 20 25 | 64 20 69 77 20 25 64 5c | %g ih %|d iw %d\|
|00003a20| 6e 22 2c 20 78 2c 20 79 | 2c 20 7a 2c 20 2a 78 63 |n", x, y|, z, *xc|
|00003a30| 6f 6f 72 2c 20 2a 79 63 | 6f 6f 72 2c 49 6d 61 67 |oor, *yc|oor,Imag|
|00003a40| 65 2d 3e 69 68 65 69 67 | 68 74 2c 49 6d 61 67 65 |e->iheig|ht,Image|
|00003a50| 2d 3e 69 77 69 64 74 68 | 29 3b 0d 0d 20 20 69 66 |->iwidth|);..  if|
|00003a60| 20 28 28 2a 78 63 6f 6f | 72 20 3e 3d 20 28 44 42 | ((*xcoo|r >= (DB|
|00003a70| 4c 29 49 6d 61 67 65 2d | 3e 69 77 69 64 74 68 29 |L)Image-|>iwidth)|
|00003a80| 20 7c 7c 0d 20 20 20 20 | 28 2a 79 63 6f 6f 72 20 | ||.    |(*ycoor |
|00003a90| 3e 3d 20 28 44 42 4c 29 | 49 6d 61 67 65 2d 3e 69 |>= (DBL)|Image->i|
|00003aa0| 68 65 69 67 68 74 29 20 | 7c 7c 0d 20 20 20 20 28 |height) |||.    (|
|00003ab0| 2a 78 63 6f 6f 72 20 3c | 20 30 2e 30 29 20 7c 7c |*xcoor <| 0.0) |||
|00003ac0| 20 28 2a 79 63 6f 6f 72 | 20 3c 20 30 2e 30 29 29 | (*ycoor| < 0.0))|
|00003ad0| 20 0d 20 20 20 20 7b 0d | 20 20 20 20 70 72 69 6e | .    {.|    prin|
|00003ae0| 74 66 20 28 22 5c 6e 50 | 69 63 74 75 72 65 20 69 |tf ("\nP|icture i|
|00003af0| 6e 64 65 78 20 6f 75 74 | 20 6f 66 20 72 61 6e 67 |ndex out| of rang|
|00003b00| 65 5c 6e 22 29 3b 0d 20 | 20 20 20 63 6c 6f 73 65 |e\n");. |   close|
|00003b10| 5f 61 6c 6c 28 29 3b 0d | 20 20 20 20 65 78 69 74 |_all();.|    exit|
|00003b20| 20 28 31 29 3b 0d 20 20 | 20 20 7d 0d 20 20 72 65 | (1);.  |  }.  re|
|00003b30| 74 75 72 6e 28 30 29 3b | 20 20 20 20 0d 20 20 7d |turn(0);|    .  }|
|00003b40| 0d 0d 73 74 61 74 69 63 | 20 76 6f 69 64 20 6e 6f |..static| void no|
|00003b50| 5f 69 6e 74 65 72 70 6f | 6c 61 74 69 6f 6e 28 49 |_interpo|lation(I|
|00003b60| 6d 61 67 65 2c 20 78 63 | 6f 6f 72 2c 20 79 63 6f |mage, xc|oor, yco|
|00003b70| 6f 72 2c 20 63 6f 6c 6f | 75 72 2c 20 69 6e 64 65 |or, colo|ur, inde|
|00003b80| 78 29 0d 49 4d 41 47 45 | 20 2a 49 6d 61 67 65 3b |x).IMAGE| *Image;|
|00003b90| 20 20 20 20 20 0d 44 42 | 4c 20 78 63 6f 6f 72 2c |     .DB|L xcoor,|
|00003ba0| 20 79 63 6f 6f 72 3b 0d | 43 4f 4c 4f 55 52 20 2a | ycoor;.|COLOUR *|
|00003bb0| 63 6f 6c 6f 75 72 3b 0d | 69 6e 74 20 2a 69 6e 64 |colour;.|int *ind|
|00003bc0| 65 78 3b 0d 20 20 7b 20 | 20 0d 20 20 73 74 72 75 |ex;.  { | .  stru|
|00003bd0| 63 74 20 49 6d 61 67 65 | 5f 4c 69 6e 65 20 2a 6c |ct Image|_Line *l|
|00003be0| 69 6e 65 3b 0d 20 20 69 | 6e 74 20 69 79 63 6f 6f |ine;.  i|nt iycoo|
|00003bf0| 72 2c 20 69 78 63 6f 6f | 72 3b 0d 20 20 49 4d 41 |r, ixcoo|r;.  IMA|
|00003c00| 47 45 5f 43 4f 4c 4f 55 | 52 20 2a 6d 61 70 5f 63 |GE_COLOU|R *map_c|
|00003c10| 6f 6c 6f 75 72 3b 0d 0d | 20 20 69 66 20 28 78 63 |olour;..|  if (xc|
|00003c20| 6f 6f 72 20 3c 20 30 2e | 30 29 0d 20 20 20 20 78 |oor < 0.|0).    x|
|00003c30| 63 6f 6f 72 20 2b 3d 20 | 28 44 42 4c 29 49 6d 61 |coor += |(DBL)Ima|
|00003c40| 67 65 2d 3e 69 77 69 64 | 74 68 3b 0d 20 20 65 6c |ge->iwid|th;.  el|
|00003c50| 73 65 20 69 66 20 28 78 | 63 6f 6f 72 20 3e 3d 20 |se if (x|coor >= |
|00003c60| 28 44 42 4c 29 49 6d 61 | 67 65 2d 3e 69 77 69 64 |(DBL)Ima|ge->iwid|
|00003c70| 74 68 29 0d 20 20 20 20 | 78 63 6f 6f 72 20 2d 3d |th).    |xcoor -=|
|00003c80| 20 28 44 42 4c 29 49 6d | 61 67 65 2d 3e 69 77 69 | (DBL)Im|age->iwi|
|00003c90| 64 74 68 3b 0d 20 20 69 | 66 20 28 79 63 6f 6f 72 |dth;.  i|f (ycoor|
|00003ca0| 20 3c 20 30 2e 30 29 0d | 20 20 20 20 79 63 6f 6f | < 0.0).|    ycoo|
|00003cb0| 72 20 2b 3d 20 28 44 42 | 4c 29 49 6d 61 67 65 2d |r += (DB|L)Image-|
|00003cc0| 3e 69 68 65 69 67 68 74 | 3b 0d 20 20 65 6c 73 65 |>iheight|;.  else|
|00003cd0| 20 69 66 20 28 79 63 6f | 6f 72 20 3e 3d 28 44 42 | if (yco|or >=(DB|
|00003ce0| 4c 29 20 49 6d 61 67 65 | 2d 3e 69 68 65 69 67 68 |L) Image|->iheigh|
|00003cf0| 74 29 0d 20 20 20 20 79 | 63 6f 6f 72 20 2d 3d 20 |t).    y|coor -= |
|00003d00| 28 44 42 4c 29 20 49 6d | 61 67 65 2d 3e 69 68 65 |(DBL) Im|age->ihe|
|00003d10| 69 67 68 74 3b 0d 0d 20 | 20 69 79 63 6f 6f 72 3d |ight;.. | iycoor=|
|00003d20| 28 69 6e 74 29 79 63 6f | 6f 72 3b 0d 20 20 69 78 |(int)yco|or;.  ix|
|00003d30| 63 6f 6f 72 3d 28 69 6e | 74 29 78 63 6f 6f 72 3b |coor=(in|t)xcoor;|
|00003d40| 0d 20 20 69 66 20 28 49 | 6d 61 67 65 2d 3e 43 6f |.  if (I|mage->Co|
|00003d50| 6c 6f 75 72 5f 4d 61 70 | 20 3d 3d 20 4e 55 4c 4c |lour_Map| == NULL|
|00003d60| 29 20 0d 20 20 20 20 7b | 0d 20 20 20 20 6c 69 6e |) .    {|.    lin|
|00003d70| 65 20 3d 20 26 49 6d 61 | 67 65 2d 3e 64 61 74 61 |e = &Ima|ge->data|
|00003d80| 2e 72 67 62 5f 6c 69 6e | 65 73 5b 69 79 63 6f 6f |.rgb_lin|es[iycoo|
|00003d90| 72 5d 3b 0d 20 20 20 20 | 63 6f 6c 6f 75 72 20 2d |r];.    |colour -|
|00003da0| 3e 20 52 65 64 20 2b 3d | 20 28 44 42 4c 29 20 6c |> Red +=| (DBL) l|
|00003db0| 69 6e 65 2d 3e 72 65 64 | 5b 69 78 63 6f 6f 72 5d |ine->red|[ixcoor]|
|00003dc0| 2f 32 35 35 2e 30 3b 0d | 20 20 20 20 63 6f 6c 6f |/255.0;.|    colo|
|00003dd0| 75 72 20 2d 3e 20 47 72 | 65 65 6e 20 2b 3d 20 28 |ur -> Gr|een += (|
|00003de0| 44 42 4c 29 20 6c 69 6e | 65 2d 3e 67 72 65 65 6e |DBL) lin|e->green|
|00003df0| 5b 69 78 63 6f 6f 72 5d | 2f 32 35 35 2e 30 3b 0d |[ixcoor]|/255.0;.|
|00003e00| 20 20 20 20 63 6f 6c 6f | 75 72 20 2d 3e 20 42 6c |    colo|ur -> Bl|
|00003e10| 75 65 20 2b 3d 20 28 44 | 42 4c 29 20 6c 69 6e 65 |ue += (D|BL) line|
|00003e20| 2d 3e 62 6c 75 65 5b 69 | 78 63 6f 6f 72 5d 2f 32 |->blue[i|xcoor]/2|
|00003e30| 35 35 2e 30 3b 0d 20 20 | 20 20 2a 69 6e 64 65 78 |55.0;.  |  *index|
|00003e40| 20 3d 20 2d 31 3b 0d 20 | 20 20 20 7d 20 0d 20 20 | = -1;. |   } .  |
|00003e50| 65 6c 73 65 20 0d 20 20 | 20 20 7b 20 20 20 0d 20 |else .  |  {   . |
|00003e60| 20 20 20 2a 69 6e 64 65 | 78 20 3d 20 49 6d 61 67 |   *inde|x = Imag|
|00003e70| 65 2d 3e 64 61 74 61 2e | 6d 61 70 5f 6c 69 6e 65 |e->data.|map_line|
|00003e80| 73 5b 69 79 63 6f 6f 72 | 5d 5b 69 78 63 6f 6f 72 |s[iycoor|][ixcoor|
|00003e90| 5d 3b 0d 20 20 20 20 6d | 61 70 5f 63 6f 6c 6f 75 |];.    m|ap_colou|
|00003ea0| 72 20 3d 20 26 49 6d 61 | 67 65 2d 3e 43 6f 6c 6f |r = &Ima|ge->Colo|
|00003eb0| 75 72 5f 4d 61 70 5b 2a | 69 6e 64 65 78 5d 3b 0d |ur_Map[*|index];.|
|00003ec0| 20 20 20 20 2f 2a 70 72 | 69 6e 74 66 20 28 22 69 |    /*pr|intf ("i|
|00003ed0| 63 61 74 20 69 6e 64 65 | 78 20 25 64 20 78 63 20 |cat inde|x %d xc |
|00003ee0| 25 64 20 79 63 20 25 64 | 20 20 43 4c 52 20 25 64 |%d yc %d|  CLR %d|
|00003ef0| 20 25 64 20 25 64 20 25 | 64 5c 6e 22 2c 2a 69 6e | %d %d %|d\n",*in|
|00003f00| 64 65 78 2c 69 78 63 6f | 6f 72 2c 69 79 63 6f 6f |dex,ixco|or,iycoo|
|00003f10| 72 2c 20 0d 20 20 20 20 | 6d 61 70 5f 63 6f 6c 6f |r, .    |map_colo|
|00003f20| 75 72 2d 3e 52 65 64 2c | 6d 61 70 5f 63 6f 6c 6f |ur->Red,|map_colo|
|00003f30| 75 72 2d 3e 47 72 65 65 | 6e 2c 6d 61 70 5f 63 6f |ur->Gree|n,map_co|
|00003f40| 6c 6f 75 72 2d 3e 42 6c | 75 65 2c 6d 61 70 5f 63 |lour->Bl|ue,map_c|
|00003f50| 6f 6c 6f 75 72 2d 3e 46 | 69 6c 74 65 72 20 29 3b |olour->F|ilter );|
|00003f60| 20 2a 2f 0d 20 20 20 20 | 63 6f 6c 6f 75 72 20 2d | */.    |colour -|
|00003f70| 3e 20 52 65 64 20 20 20 | 2b 3d 20 28 44 42 4c 29 |> Red   |+= (DBL)|
|00003f80| 20 6d 61 70 5f 63 6f 6c | 6f 75 72 2d 3e 52 65 64 | map_col|our->Red|
|00003f90| 2f 32 35 35 2e 30 3b 0d | 20 20 20 20 63 6f 6c 6f |/255.0;.|    colo|
|00003fa0| 75 72 20 2d 3e 20 47 72 | 65 65 6e 20 2b 3d 20 28 |ur -> Gr|een += (|
|00003fb0| 44 42 4c 29 20 6d 61 70 | 5f 63 6f 6c 6f 75 72 2d |DBL) map|_colour-|
|00003fc0| 3e 47 72 65 65 6e 2f 32 | 35 35 2e 30 3b 0d 20 20 |>Green/2|55.0;.  |
|00003fd0| 20 20 63 6f 6c 6f 75 72 | 20 2d 3e 20 42 6c 75 65 |  colour| -> Blue|
|00003fe0| 20 20 2b 3d 20 28 44 42 | 4c 29 20 6d 61 70 5f 63 |  += (DB|L) map_c|
|00003ff0| 6f 6c 6f 75 72 2d 3e 42 | 6c 75 65 2f 32 35 35 2e |olour->B|lue/255.|
|00004000| 30 3b 0d 20 20 20 20 63 | 6f 6c 6f 75 72 20 2d 3e |0;.    c|olour ->|
|00004010| 20 46 69 6c 74 65 72 20 | 2b 3d 20 28 44 42 4c 29 | Filter |+= (DBL)|
|00004020| 20 6d 61 70 5f 63 6f 6c | 6f 75 72 2d 3e 46 69 6c | map_col|our->Fil|
|00004030| 74 65 72 2f 32 35 35 2e | 30 3b 0d 20 20 20 20 7d |ter/255.|0;.    }|
|00004040| 0d 0d 20 20 20 20 69 66 | 20 28 4f 70 74 69 6f 6e |..    if| (Option|
|00004050| 73 20 26 20 44 45 42 55 | 47 47 49 4e 47 29 0d 20 |s & DEBU|GGING). |
|00004060| 20 20 20 20 20 70 72 69 | 6e 74 66 20 28 22 5c 6e |     pri|ntf ("\n|
|00004070| 20 6e 6f 5f 69 6e 74 65 | 72 70 6f 6c 61 74 69 6f | no_inte|rpolatio|
|00004080| 6e 20 69 6e 64 65 78 20 | 25 64 20 78 63 20 25 64 |n index |%d xc %d|
|00004090| 20 79 63 20 25 64 20 5c | 6e 22 2c 2a 69 6e 64 65 | yc %d \|n",*inde|
|000040a0| 78 2c 69 78 63 6f 6f 72 | 2c 69 79 63 6f 6f 72 29 |x,ixcoor|,iycoor)|
|000040b0| 3b 0d 20 20 7d 0d 0d 2f | 2a 20 49 6e 74 65 72 70 |;.  }../|* Interp|
|000040c0| 6f 6c 61 74 65 20 63 6f | 6c 6f 72 20 61 6e 64 20 |olate co|lor and |
|000040d0| 66 69 6c 74 65 72 20 76 | 61 6c 75 65 73 20 77 68 |filter v|alues wh|
|000040e0| 65 6e 20 6d 61 70 70 69 | 6e 67 20 2a 2f 0d 0d 73 |en mappi|ng */..s|
|000040f0| 74 61 74 69 63 20 76 6f | 69 64 20 49 6e 74 65 72 |tatic vo|id Inter|
|00004100| 70 28 49 6d 61 67 65 2c | 20 78 63 6f 6f 72 2c 20 |p(Image,| xcoor, |
|00004110| 79 63 6f 6f 72 2c 20 63 | 6f 6c 6f 75 72 2c 20 69 |ycoor, c|olour, i|
|00004120| 6e 64 65 78 29 0d 49 4d | 41 47 45 20 2a 49 6d 61 |ndex).IM|AGE *Ima|
|00004130| 67 65 3b 20 20 20 20 20 | 0d 44 42 4c 20 78 63 6f |ge;     |.DBL xco|
|00004140| 6f 72 2c 20 79 63 6f 6f | 72 3b 0d 43 4f 4c 4f 55 |or, ycoo|r;.COLOU|
|00004150| 52 20 2a 63 6f 6c 6f 75 | 72 3b 0d 69 6e 74 20 2a |R *colou|r;.int *|
|00004160| 69 6e 64 65 78 3b 0d 20 | 20 7b 20 20 0d 20 20 69 |index;. | {  .  i|
|00004170| 6e 74 20 69 79 63 6f 6f | 72 2c 20 69 78 63 6f 6f |nt iycoo|r, ixcoo|
|00004180| 72 2c 69 3b 0d 20 20 69 | 6e 74 20 43 6f 72 6e 65 |r,i;.  i|nt Corne|
|00004190| 72 73 5f 49 6e 64 65 78 | 5b 34 5d 3b 0d 20 20 44 |rs_Index|[4];.  D|
|000041a0| 42 4c 20 49 6e 64 65 78 | 5f 43 72 6e 5b 34 5d 3b |BL Index|_Crn[4];|
|000041b0| 0d 20 20 43 4f 4c 4f 55 | 52 20 43 6f 72 6e 65 72 |.  COLOU|R Corner|
|000041c0| 5f 43 6f 6c 6f 75 72 5b | 34 5d 3b 0d 20 20 44 42 |_Colour[|4];.  DB|
|000041d0| 4c 20 52 65 64 5f 43 72 | 6e 5b 34 5d 3b 0d 20 20 |L Red_Cr|n[4];.  |
|000041e0| 44 42 4c 20 47 72 65 65 | 6e 5f 43 72 6e 5b 34 5d |DBL Gree|n_Crn[4]|
|000041f0| 3b 0d 20 20 44 42 4c 20 | 42 6c 75 65 5f 43 72 6e |;.  DBL |Blue_Crn|
|00004200| 5b 34 5d 3b 0d 20 20 44 | 42 4c 20 46 69 6c 74 65 |[4];.  D|BL Filte|
|00004210| 72 5f 43 72 6e 5b 34 5d | 3b 0d 20 20 44 42 4c 20 |r_Crn[4]|;.  DBL |
|00004220| 76 61 6c 31 2c 20 76 61 | 6c 32 2c 20 76 61 6c 33 |val1, va|l2, val3|
|00004230| 2c 76 61 6c 34 3b 0d 0d | 20 20 69 79 63 6f 6f 72 |,val4;..|  iycoor|
|00004240| 3d 28 69 6e 74 29 79 63 | 6f 6f 72 3b 0d 20 20 69 |=(int)yc|oor;.  i|
|00004250| 78 63 6f 6f 72 3d 28 69 | 6e 74 29 78 63 6f 6f 72 |xcoor=(i|nt)xcoor|
|00004260| 3b 0d 20 20 66 6f 72 28 | 69 3d 30 3b 69 3c 34 3b |;.  for(|i=0;i<4;|
|00004270| 69 2b 2b 29 0d 20 20 20 | 20 7b 0d 20 20 20 20 4d |i++).   | {.    M|
|00004280| 61 6b 65 5f 43 6f 6c 6f | 75 72 28 26 43 6f 72 6e |ake_Colo|ur(&Corn|
|00004290| 65 72 5f 43 6f 6c 6f 75 | 72 5b 69 5d 2c 30 2e 30 |er_Colou|r[i],0.0|
|000042a0| 2c 30 2e 30 2c 30 2e 30 | 29 3b 0d 20 20 20 20 43 |,0.0,0.0|);.    C|
|000042b0| 6f 72 6e 65 72 5f 43 6f | 6c 6f 75 72 5b 69 5d 2e |orner_Co|lour[i].|
|000042c0| 46 69 6c 74 65 72 3d 30 | 2e 30 3b 20 0d 20 20 20 |Filter=0|.0; .   |
|000042d0| 20 7d 0d 20 20 2f 2a 20 | 4f 4b 2c 20 6e 6f 77 20 | }.  /* |OK, now |
|000042e0| 74 68 61 74 20 79 6f 75 | 20 68 61 76 65 20 74 68 |that you| have th|
|000042f0| 65 20 63 6f 72 6e 65 72 | 73 2c 20 77 68 61 74 20 |e corner|s, what |
|00004300| 61 72 65 20 79 6f 75 20 | 67 6f 69 6e 67 20 74 6f |are you |going to|
|00004310| 20 64 6f 20 77 69 74 68 | 20 74 68 65 6d 3f 20 2a | do with| them? *|
|00004320| 2f 0d 20 20 69 66 28 49 | 6d 61 67 65 2d 3e 49 6e |/.  if(I|mage->In|
|00004330| 74 65 72 70 6f 6c 61 74 | 69 6f 6e 5f 54 79 70 65 |terpolat|ion_Type|
|00004340| 3d 3d 42 49 4c 49 4e 45 | 41 52 29 0d 20 20 20 20 |==BILINE|AR).    |
|00004350| 7b 0d 20 20 20 20 6e 6f | 5f 69 6e 74 65 72 70 6f |{.    no|_interpo|
|00004360| 6c 61 74 69 6f 6e 28 49 | 6d 61 67 65 2c 28 44 42 |lation(I|mage,(DB|
|00004370| 4c 29 69 78 63 6f 6f 72 | 2b 31 2c 28 44 42 4c 29 |L)ixcoor|+1,(DBL)|
|00004380| 69 79 63 6f 6f 72 2c 26 | 43 6f 72 6e 65 72 5f 43 |iycoor,&|Corner_C|
|00004390| 6f 6c 6f 75 72 5b 30 5d | 2c 26 43 6f 72 6e 65 72 |olour[0]|,&Corner|
|000043a0| 73 5f 49 6e 64 65 78 5b | 30 5d 29 3b 0d 20 20 20 |s_Index[|0]);.   |
|000043b0| 20 6e 6f 5f 69 6e 74 65 | 72 70 6f 6c 61 74 69 6f | no_inte|rpolatio|
|000043c0| 6e 28 49 6d 61 67 65 2c | 28 44 42 4c 29 69 78 63 |n(Image,|(DBL)ixc|
|000043d0| 6f 6f 72 2c 28 44 42 4c | 29 69 79 63 6f 6f 72 2c |oor,(DBL|)iycoor,|
|000043e0| 26 43 6f 72 6e 65 72 5f | 43 6f 6c 6f 75 72 5b 31 |&Corner_|Colour[1|
|000043f0| 5d 2c 26 43 6f 72 6e 65 | 72 73 5f 49 6e 64 65 78 |],&Corne|rs_Index|
|00004400| 5b 31 5d 29 3b 0d 20 20 | 20 20 6e 6f 5f 69 6e 74 |[1]);.  |  no_int|
|00004410| 65 72 70 6f 6c 61 74 69 | 6f 6e 28 49 6d 61 67 65 |erpolati|on(Image|
|00004420| 2c 28 44 42 4c 29 69 78 | 63 6f 6f 72 2b 31 2c 28 |,(DBL)ix|coor+1,(|
|00004430| 44 42 4c 29 69 79 63 6f | 6f 72 2d 31 2c 26 43 6f |DBL)iyco|or-1,&Co|
|00004440| 72 6e 65 72 5f 43 6f 6c | 6f 75 72 5b 32 5d 2c 26 |rner_Col|our[2],&|
|00004450| 43 6f 72 6e 65 72 73 5f | 49 6e 64 65 78 5b 32 5d |Corners_|Index[2]|
|00004460| 29 3b 0d 20 20 20 20 6e | 6f 5f 69 6e 74 65 72 70 |);.    n|o_interp|
|00004470| 6f 6c 61 74 69 6f 6e 28 | 49 6d 61 67 65 2c 28 44 |olation(|Image,(D|
|00004480| 42 4c 29 69 78 63 6f 6f | 72 2c 28 44 42 4c 29 69 |BL)ixcoo|r,(DBL)i|
|00004490| 79 63 6f 6f 72 2d 31 2c | 26 43 6f 72 6e 65 72 5f |ycoor-1,|&Corner_|
|000044a0| 43 6f 6c 6f 75 72 5b 33 | 5d 2c 26 43 6f 72 6e 65 |Colour[3|],&Corne|
|000044b0| 72 73 5f 49 6e 64 65 78 | 5b 33 5d 29 3b 0d 20 20 |rs_Index|[3]);.  |
|000044c0| 20 20 66 6f 72 28 69 3d | 30 3b 69 3c 34 3b 69 2b |  for(i=|0;i<4;i+|
|000044d0| 2b 29 0d 20 20 20 20 20 | 20 7b 0d 20 20 20 20 20 |+).     | {.     |
|000044e0| 20 52 65 64 5f 43 72 6e | 5b 69 5d 20 3d 20 43 6f | Red_Crn|[i] = Co|
|000044f0| 72 6e 65 72 5f 43 6f 6c | 6f 75 72 5b 69 5d 2e 52 |rner_Col|our[i].R|
|00004500| 65 64 3b 0d 20 20 20 20 | 20 20 47 72 65 65 6e 5f |ed;.    |  Green_|
|00004510| 43 72 6e 5b 69 5d 20 3d | 20 43 6f 72 6e 65 72 5f |Crn[i] =| Corner_|
|00004520| 43 6f 6c 6f 75 72 5b 69 | 5d 2e 47 72 65 65 6e 3b |Colour[i|].Green;|
|00004530| 0d 20 20 20 20 20 20 42 | 6c 75 65 5f 43 72 6e 5b |.      B|lue_Crn[|
|00004540| 69 5d 20 3d 20 43 6f 72 | 6e 65 72 5f 43 6f 6c 6f |i] = Cor|ner_Colo|
|00004550| 75 72 5b 69 5d 2e 42 6c | 75 65 3b 0d 20 20 20 20 |ur[i].Bl|ue;.    |
|00004560| 20 20 46 69 6c 74 65 72 | 5f 43 72 6e 5b 69 5d 20 |  Filter|_Crn[i] |
|00004570| 3d 20 43 6f 72 6e 65 72 | 5f 43 6f 6c 6f 75 72 5b |= Corner|_Colour[|
|00004580| 69 5d 2e 46 69 6c 74 65 | 72 3b 0d 20 20 20 20 20 |i].Filte|r;.     |
|00004590| 20 2f 2a 20 70 72 69 6e | 74 66 28 22 43 72 6e 20 | /* prin|tf("Crn |
|000045a0| 25 64 20 3d 20 25 6c 66 | 20 25 6c 66 20 25 6c 66 |%d = %lf| %lf %lf|
|000045b0| 5c 6e 22 2c 69 2c 52 65 | 64 5f 43 72 6e 5b 69 5d |\n",i,Re|d_Crn[i]|
|000045c0| 2c 42 6c 75 65 5f 43 72 | 6e 5b 69 5d 2c 47 72 65 |,Blue_Cr|n[i],Gre|
|000045d0| 65 6e 5f 43 72 6e 5b 69 | 5d 29 3b 20 2a 2f 0d 20 |en_Crn[i|]); */. |
|000045e0| 20 20 20 20 20 7d 0d 0d | 20 20 20 20 76 61 6c 31 |     }..|    val1|
|000045f0| 20 3d 20 62 69 6c 69 6e | 65 61 72 28 52 65 64 5f | = bilin|ear(Red_|
|00004600| 43 72 6e 2c 78 63 6f 6f | 72 2c 79 63 6f 6f 72 29 |Crn,xcoo|r,ycoor)|
|00004610| 3b 0d 20 20 20 20 76 61 | 6c 32 20 3d 20 62 69 6c |;.    va|l2 = bil|
|00004620| 69 6e 65 61 72 28 47 72 | 65 65 6e 5f 43 72 6e 2c |inear(Gr|een_Crn,|
|00004630| 78 63 6f 6f 72 2c 79 63 | 6f 6f 72 29 3b 0d 20 20 |xcoor,yc|oor);.  |
|00004640| 20 20 76 61 6c 33 20 3d | 20 62 69 6c 69 6e 65 61 |  val3 =| bilinea|
|00004650| 72 28 42 6c 75 65 5f 43 | 72 6e 2c 78 63 6f 6f 72 |r(Blue_C|rn,xcoor|
|00004660| 2c 79 63 6f 6f 72 29 3b | 0d 20 20 20 20 76 61 6c |,ycoor);|.    val|
|00004670| 34 20 3d 20 62 69 6c 69 | 6e 65 61 72 28 46 69 6c |4 = bili|near(Fil|
|00004680| 74 65 72 5f 43 72 6e 2c | 78 63 6f 6f 72 2c 79 63 |ter_Crn,|xcoor,yc|
|00004690| 6f 6f 72 29 3b 0d 20 20 | 20 20 7d 0d 20 20 69 66 |oor);.  |  }.  if|
|000046a0| 28 49 6d 61 67 65 2d 3e | 49 6e 74 65 72 70 6f 6c |(Image->|Interpol|
|000046b0| 61 74 69 6f 6e 5f 54 79 | 70 65 3d 3d 4e 4f 52 4d |ation_Ty|pe==NORM|
|000046c0| 41 4c 49 5a 45 44 5f 44 | 49 53 54 29 0d 20 20 20 |ALIZED_D|IST).   |
|000046d0| 20 7b 0d 20 20 20 20 6e | 6f 5f 69 6e 74 65 72 70 | {.    n|o_interp|
|000046e0| 6f 6c 61 74 69 6f 6e 28 | 49 6d 61 67 65 2c 28 44 |olation(|Image,(D|
|000046f0| 42 4c 29 69 78 63 6f 6f | 72 2c 28 44 42 4c 29 69 |BL)ixcoo|r,(DBL)i|
|00004700| 79 63 6f 6f 72 2d 31 2c | 26 43 6f 72 6e 65 72 5f |ycoor-1,|&Corner_|
|00004710| 43 6f 6c 6f 75 72 5b 30 | 5d 2c 26 43 6f 72 6e 65 |Colour[0|],&Corne|
|00004720| 72 73 5f 49 6e 64 65 78 | 5b 30 5d 29 3b 0d 20 20 |rs_Index|[0]);.  |
|00004730| 20 20 6e 6f 5f 69 6e 74 | 65 72 70 6f 6c 61 74 69 |  no_int|erpolati|
|00004740| 6f 6e 28 49 6d 61 67 65 | 2c 28 44 42 4c 29 69 78 |on(Image|,(DBL)ix|
|00004750| 63 6f 6f 72 2b 31 2c 28 | 44 42 4c 29 69 79 63 6f |coor+1,(|DBL)iyco|
|00004760| 6f 72 2d 31 2c 26 43 6f | 72 6e 65 72 5f 43 6f 6c |or-1,&Co|rner_Col|
|00004770| 6f 75 72 5b 31 5d 2c 26 | 43 6f 72 6e 65 72 73 5f |our[1],&|Corners_|
|00004780| 49 6e 64 65 78 5b 31 5d | 29 3b 0d 20 20 20 20 6e |Index[1]|);.    n|
|00004790| 6f 5f 69 6e 74 65 72 70 | 6f 6c 61 74 69 6f 6e 28 |o_interp|olation(|
|000047a0| 49 6d 61 67 65 2c 28 44 | 42 4c 29 69 78 63 6f 6f |Image,(D|BL)ixcoo|
|000047b0| 72 2c 28 44 42 4c 29 69 | 79 63 6f 6f 72 2c 26 43 |r,(DBL)i|ycoor,&C|
|000047c0| 6f 72 6e 65 72 5f 43 6f | 6c 6f 75 72 5b 32 5d 2c |orner_Co|lour[2],|
|000047d0| 26 43 6f 72 6e 65 72 73 | 5f 49 6e 64 65 78 5b 32 |&Corners|_Index[2|
|000047e0| 5d 29 3b 0d 20 20 20 20 | 6e 6f 5f 69 6e 74 65 72 |]);.    |no_inter|
|000047f0| 70 6f 6c 61 74 69 6f 6e | 28 49 6d 61 67 65 2c 28 |polation|(Image,(|
|00004800| 44 42 4c 29 69 78 63 6f | 6f 72 2b 31 2c 28 44 42 |DBL)ixco|or+1,(DB|
|00004810| 4c 29 69 79 63 6f 6f 72 | 2c 26 43 6f 72 6e 65 72 |L)iycoor|,&Corner|
|00004820| 5f 43 6f 6c 6f 75 72 5b | 33 5d 2c 26 43 6f 72 6e |_Colour[|3],&Corn|
|00004830| 65 72 73 5f 49 6e 64 65 | 78 5b 33 5d 29 3b 0d 20 |ers_Inde|x[3]);. |
|00004840| 20 20 20 66 6f 72 28 69 | 3d 30 3b 69 3c 34 3b 69 |   for(i|=0;i<4;i|
|00004850| 2b 2b 29 0d 20 20 20 20 | 20 20 7b 0d 20 20 20 20 |++).    |  {.    |
|00004860| 20 20 52 65 64 5f 43 72 | 6e 5b 69 5d 20 3d 20 43 |  Red_Cr|n[i] = C|
|00004870| 6f 72 6e 65 72 5f 43 6f | 6c 6f 75 72 5b 69 5d 2e |orner_Co|lour[i].|
|00004880| 52 65 64 3b 0d 20 20 20 | 20 20 20 47 72 65 65 6e |Red;.   |   Green|
|00004890| 5f 43 72 6e 5b 69 5d 20 | 3d 20 43 6f 72 6e 65 72 |_Crn[i] |= Corner|
|000048a0| 5f 43 6f 6c 6f 75 72 5b | 69 5d 2e 47 72 65 65 6e |_Colour[|i].Green|
|000048b0| 3b 0d 20 20 20 20 20 20 | 42 6c 75 65 5f 43 72 6e |;.      |Blue_Crn|
|000048c0| 5b 69 5d 20 3d 20 43 6f | 72 6e 65 72 5f 43 6f 6c |[i] = Co|rner_Col|
|000048d0| 6f 75 72 5b 69 5d 2e 42 | 6c 75 65 3b 0d 20 20 20 |our[i].B|lue;.   |
|000048e0| 20 20 20 46 69 6c 74 65 | 72 5f 43 72 6e 5b 69 5d |   Filte|r_Crn[i]|
|000048f0| 20 3d 20 43 6f 72 6e 65 | 72 5f 43 6f 6c 6f 75 72 | = Corne|r_Colour|
|00004900| 5b 69 5d 2e 46 69 6c 74 | 65 72 3b 0d 20 20 20 20 |[i].Filt|er;.    |
|00004910| 20 20 2f 2a 20 70 72 69 | 6e 74 66 28 22 43 72 6e |  /* pri|ntf("Crn|
|00004920| 20 25 64 20 3d 20 25 6c | 66 20 25 6c 66 20 25 6c | %d = %l|f %lf %l|
|00004930| 66 5c 6e 22 2c 69 2c 52 | 65 64 5f 43 72 6e 5b 69 |f\n",i,R|ed_Crn[i|
|00004940| 5d 2c 42 6c 75 65 5f 43 | 72 6e 5b 69 5d 2c 47 72 |],Blue_C|rn[i],Gr|
|00004950| 65 65 6e 5f 43 72 6e 5b | 69 5d 29 3b 20 2a 2f 0d |een_Crn[|i]); */.|
|00004960| 20 20 20 20 20 20 7d 0d | 0d 20 20 20 20 76 61 6c |      }.|.    val|
|00004970| 31 20 3d 20 6e 6f 72 6d | 5f 64 69 73 74 28 52 65 |1 = norm|_dist(Re|
|00004980| 64 5f 43 72 6e 2c 78 63 | 6f 6f 72 2c 79 63 6f 6f |d_Crn,xc|oor,ycoo|
|00004990| 72 29 3b 0d 20 20 20 20 | 76 61 6c 32 20 3d 20 6e |r);.    |val2 = n|
|000049a0| 6f 72 6d 5f 64 69 73 74 | 28 47 72 65 65 6e 5f 43 |orm_dist|(Green_C|
|000049b0| 72 6e 2c 78 63 6f 6f 72 | 2c 79 63 6f 6f 72 29 3b |rn,xcoor|,ycoor);|
|000049c0| 0d 20 20 20 20 76 61 6c | 33 20 3d 20 6e 6f 72 6d |.    val|3 = norm|
|000049d0| 5f 64 69 73 74 28 42 6c | 75 65 5f 43 72 6e 2c 78 |_dist(Bl|ue_Crn,x|
|000049e0| 63 6f 6f 72 2c 79 63 6f | 6f 72 29 3b 0d 20 20 20 |coor,yco|or);.   |
|000049f0| 20 76 61 6c 34 20 3d 20 | 6e 6f 72 6d 5f 64 69 73 | val4 = |norm_dis|
|00004a00| 74 28 46 69 6c 74 65 72 | 5f 43 72 6e 2c 78 63 6f |t(Filter|_Crn,xco|
|00004a10| 6f 72 2c 79 63 6f 6f 72 | 29 3b 0d 20 20 20 20 7d |or,ycoor|);.    }|
|00004a20| 0d 0d 20 20 63 6f 6c 6f | 75 72 2d 3e 52 65 64 20 |..  colo|ur->Red |
|00004a30| 20 20 2b 3d 20 76 61 6c | 31 3b 0d 20 20 63 6f 6c |  += val|1;.  col|
|00004a40| 6f 75 72 2d 3e 47 72 65 | 65 6e 20 2b 3d 20 76 61 |our->Gre|en += va|
|00004a50| 6c 32 3b 0d 20 20 63 6f | 6c 6f 75 72 2d 3e 42 6c |l2;.  co|lour->Bl|
|00004a60| 75 65 20 20 2b 3d 20 76 | 61 6c 33 3b 0d 20 20 63 |ue  += v|al3;.  c|
|00004a70| 6f 6c 6f 75 72 2d 3e 46 | 69 6c 74 65 72 20 2b 3d |olour->F|ilter +=|
|00004a80| 20 76 61 6c 34 3b 0d 20 | 20 2f 2a 20 70 72 69 6e | val4;. | /* prin|
|00004a90| 74 66 28 22 46 69 6e 61 | 6c 20 3d 20 25 6c 66 20 |tf("Fina|l = %lf |
|00004aa0| 25 6c 66 20 25 6c 66 5c | 6e 22 2c 76 61 6c 31 2c |%lf %lf\|n",val1,|
|00004ab0| 76 61 6c 32 2c 76 61 6c | 33 29 3b 20 20 2a 2f 0d |val2,val|3);  */.|
|00004ac0| 20 20 2f 2a 20 75 73 65 | 20 62 69 6c 69 6e 65 61 |  /* use| bilinea|
|00004ad0| 72 20 66 6f 72 20 69 6e | 64 65 78 20 74 72 79 20 |r for in|dex try |
|00004ae0| 61 76 65 72 61 67 65 20 | 6c 61 74 65 72 20 2a 2f |average |later */|
|00004af0| 0d 20 20 66 6f 72 28 69 | 3d 30 3b 69 3c 34 3b 69 |.  for(i|=0;i<4;i|
|00004b00| 2b 2b 29 0d 20 20 20 20 | 49 6e 64 65 78 5f 43 72 |++).    |Index_Cr|
|00004b10| 6e 5b 69 5d 20 3d 20 28 | 44 42 4c 29 20 43 6f 72 |n[i] = (|DBL) Cor|
|00004b20| 6e 65 72 73 5f 49 6e 64 | 65 78 5b 69 5d 3b 0d 20 |ners_Ind|ex[i];. |
|00004b30| 20 69 66 28 49 6d 61 67 | 65 2d 3e 49 6e 74 65 72 | if(Imag|e->Inter|
|00004b40| 70 6f 6c 61 74 69 6f 6e | 5f 54 79 70 65 3d 3d 42 |polation|_Type==B|
|00004b50| 49 4c 49 4e 45 41 52 29 | 0d 20 20 20 20 7b 0d 20 |ILINEAR)|.    {. |
|00004b60| 20 20 20 2a 69 6e 64 65 | 78 20 3d 20 28 69 6e 74 |   *inde|x = (int|
|00004b70| 29 28 62 69 6c 69 6e 65 | 61 72 28 49 6e 64 65 78 |)(biline|ar(Index|
|00004b80| 5f 43 72 6e 2c 78 63 6f | 6f 72 2c 79 63 6f 6f 72 |_Crn,xco|or,ycoor|
|00004b90| 29 2b 30 2e 35 29 3b 0d | 20 20 20 20 7d 0d 20 20 |)+0.5);.|    }.  |
|00004ba0| 69 66 28 49 6d 61 67 65 | 2d 3e 49 6e 74 65 72 70 |if(Image|->Interp|
|00004bb0| 6f 6c 61 74 69 6f 6e 5f | 54 79 70 65 3d 3d 4e 4f |olation_|Type==NO|
|00004bc0| 52 4d 41 4c 49 5a 45 44 | 5f 44 49 53 54 29 0d 20 |RMALIZED|_DIST). |
|00004bd0| 20 20 20 7b 0d 20 20 20 | 20 2a 69 6e 64 65 78 20 |   {.   | *index |
|00004be0| 3d 20 28 69 6e 74 29 28 | 6e 6f 72 6d 5f 64 69 73 |= (int)(|norm_dis|
|00004bf0| 74 28 49 6e 64 65 78 5f | 43 72 6e 2c 78 63 6f 6f |t(Index_|Crn,xcoo|
|00004c00| 72 2c 79 63 6f 6f 72 29 | 2b 30 2e 35 29 3b 0d 20 |r,ycoor)|+0.5);. |
|00004c10| 20 20 20 7d 0d 20 20 7d | 0d 0d 2f 2a 20 54 68 65 |   }.  }|../* The|
|00004c20| 73 65 20 69 6e 74 65 72 | 70 6f 6c 61 74 69 6f 6e |se inter|polation|
|00004c30| 20 74 65 63 68 6e 69 71 | 75 65 73 20 61 72 65 20 | techniq|ues are |
|00004c40| 74 61 6b 65 6e 20 66 72 | 6f 6d 20 61 6e 20 61 72 |taken fr|om an ar|
|00004c50| 74 69 63 6c 65 20 62 79 | 20 2a 2f 0d 2f 2a 20 47 |ticle by| */./* G|
|00004c60| 69 72 69 73 68 20 54 2e | 20 48 61 67 61 6e 20 69 |irish T.| Hagan i|
|00004c70| 6e 20 74 68 65 20 43 20 | 50 72 6f 67 72 61 6d 6d |n the C |Programm|
|00004c80| 65 72 27 73 20 4a 6f 75 | 72 6e 61 6c 20 56 20 39 |er's Jou|rnal V 9|
|00004c90| 20 4e 6f 2e 20 38 20 2a | 2f 0d 2f 2a 20 54 68 65 | No. 8 *|/./* The|
|00004ca0| 79 20 77 65 72 65 20 61 | 64 61 70 74 65 64 20 66 |y were a|dapted f|
|00004cb0| 6f 72 20 50 4f 56 2d 52 | 61 79 20 62 79 20 43 64 |or POV-R|ay by Cd|
|00004cc0| 57 20 2a 2f 0d 0d 73 74 | 61 74 69 63 20 44 42 4c |W */..st|atic DBL|
|00004cd0| 20 62 69 6c 69 6e 65 61 | 72 20 28 63 6f 72 6e 65 | bilinea|r (corne|
|00004ce0| 72 73 2c 20 78 2c 79 29 | 0d 44 42 4c 20 2a 63 6f |rs, x,y)|.DBL *co|
|00004cf0| 72 6e 65 72 73 2c 20 78 | 2c 79 3b 20 20 20 0d 20 |rners, x|,y;   . |
|00004d00| 20 7b 0d 20 20 44 42 4c | 20 70 2c 71 3b 0d 20 20 | {.  DBL| p,q;.  |
|00004d10| 44 42 4c 20 76 61 6c 20 | 3d 20 30 2e 30 3b 0d 0d |DBL val |= 0.0;..|
|00004d20| 20 20 70 20 3d 20 78 20 | 2d 20 28 69 6e 74 29 20 |  p = x |- (int) |
|00004d30| 78 3b 0d 20 20 71 20 3d | 20 79 20 2d 20 28 69 6e |x;.  q =| y - (in|
|00004d40| 74 29 20 79 3b 0d 20 20 | 69 66 20 28 28 70 3d 3d |t) y;.  |if ((p==|
|00004d50| 30 2e 30 29 20 26 26 20 | 28 71 3d 3d 30 2e 30 29 |0.0) && |(q==0.0)|
|00004d60| 29 0d 20 20 20 20 72 65 | 74 75 72 6e 28 2a 63 6f |).    re|turn(*co|
|00004d70| 72 6e 65 72 73 29 3b 20 | 2f 2a 20 75 70 70 65 72 |rners); |/* upper|
|00004d80| 20 6c 65 66 74 20 2a 2f | 0d 0d 20 20 76 61 6c 20 | left */|..  val |
|00004d90| 3d 20 28 70 2a 71 2a 20 | 2a 63 6f 72 6e 65 72 73 |= (p*q* |*corners|
|00004da0| 29 20 2b 20 28 71 2a 28 | 31 2d 70 29 2a 20 2a 28 |) + (q*(|1-p)* *(|
|00004db0| 63 6f 72 6e 65 72 73 2b | 31 29 29 20 2b 20 0d 20 |corners+|1)) + . |
|00004dc0| 20 28 70 2a 28 31 2d 71 | 29 2a 20 2a 28 63 6f 72 | (p*(1-q|)* *(cor|
|00004dd0| 6e 65 72 73 2b 32 29 29 | 20 2b 20 28 28 31 2d 70 |ners+2))| + ((1-p|
|00004de0| 29 2a 28 31 2d 71 29 2a | 20 2a 28 63 6f 72 6e 65 |)*(1-q)*| *(corne|
|00004df0| 72 73 2b 33 29 29 3b 0d | 20 20 72 65 74 75 72 6e |rs+3));.|  return|
|00004e00| 28 76 61 6c 29 3b 0d 20 | 20 7d 20 20 0d 0d 0d 23 |(val);. | }  ...#|
|00004e10| 64 65 66 69 6e 65 20 4d | 41 58 5f 50 54 53 20 34 |define M|AX_PTS 4|
|00004e20| 0d 23 64 65 66 69 6e 65 | 20 50 59 54 48 41 47 4f |.#define| PYTHAGO|
|00004e30| 52 45 41 4e 5f 53 51 28 | 61 2c 62 29 20 20 28 20 |REAN_SQ(|a,b)  ( |
|00004e40| 28 61 29 2a 28 61 29 20 | 2b 20 28 62 29 2a 28 62 |(a)*(a) |+ (b)*(b|
|00004e50| 29 20 29 0d 0d 73 74 61 | 74 69 63 20 44 42 4c 20 |) )..sta|tic DBL |
|00004e60| 6e 6f 72 6d 5f 64 69 73 | 74 28 63 6f 72 6e 65 72 |norm_dis|t(corner|
|00004e70| 73 2c 78 2c 79 29 0d 44 | 42 4c 20 2a 63 6f 72 6e |s,x,y).D|BL *corn|
|00004e80| 65 72 73 2c 78 2c 79 3b | 0d 20 20 7b 0d 20 20 72 |ers,x,y;|.  {.  r|
|00004e90| 65 67 69 73 74 65 72 20 | 69 6e 74 20 69 3b 0d 0d |egister |int i;..|
|00004ea0| 20 20 44 42 4c 20 70 2c | 71 3b 0d 20 20 44 42 4c |  DBL p,|q;.  DBL|
|00004eb0| 20 77 74 73 5b 4d 41 58 | 5f 50 54 53 5d 3b 0d 20 | wts[MAX|_PTS];. |
|00004ec0| 20 44 42 4c 20 73 75 6d | 5f 69 6e 76 5f 77 74 73 | DBL sum|_inv_wts|
|00004ed0| 20 3d 20 30 2e 30 3b 0d | 20 20 44 42 4c 20 73 75 | = 0.0;.|  DBL su|
|00004ee0| 6d 5f 49 20 20 3d 20 30 | 2e 30 3b 0d 0d 20 20 70 |m_I  = 0|.0;..  p|
|00004ef0| 20 3d 20 78 20 2d 20 28 | 69 6e 74 29 20 78 3b 0d | = x - (|int) x;.|
|00004f00| 20 20 71 20 3d 20 79 20 | 2d 20 28 69 6e 74 29 20 |  q = y |- (int) |
|00004f10| 79 3b 0d 0d 20 20 69 66 | 28 20 28 70 3d 3d 30 2e |y;..  if|( (p==0.|
|00004f20| 30 29 20 26 26 20 28 71 | 3d 3d 30 2e 30 29 20 29 |0) && (q|==0.0) )|
|00004f30| 0d 20 20 20 20 72 65 74 | 75 72 6e 28 2a 63 6f 72 |.    ret|urn(*cor|
|00004f40| 6e 65 72 73 29 3b 20 2f | 2a 20 75 70 70 65 72 20 |ners); /|* upper |
|00004f50| 6c 65 66 74 20 2a 2f 0d | 0d 20 20 77 74 73 5b 30 |left */.|.  wts[0|
|00004f60| 5d 20 3d 20 50 59 54 48 | 41 47 4f 52 45 41 4e 5f |] = PYTH|AGOREAN_|
|00004f70| 53 51 28 70 2c 71 29 3b | 0d 20 20 77 74 73 5b 31 |SQ(p,q);|.  wts[1|
|00004f80| 5d 20 3d 20 50 59 54 48 | 41 47 4f 52 45 41 4e 5f |] = PYTH|AGOREAN_|
|00004f90| 53 51 28 31 2d 70 2c 71 | 29 3b 0d 20 20 77 74 73 |SQ(1-p,q|);.  wts|
|00004fa0| 5b 32 5d 20 3d 20 50 59 | 54 48 41 47 4f 52 45 41 |[2] = PY|THAGOREA|
|00004fb0| 4e 5f 53 51 28 70 2c 31 | 2d 71 29 3b 0d 20 20 77 |N_SQ(p,1|-q);.  w|
|00004fc0| 74 73 5b 33 5d 20 3d 20 | 50 59 54 48 41 47 4f 52 |ts[3] = |PYTHAGOR|
|00004fd0| 45 41 4e 5f 53 51 28 31 | 2d 70 2c 31 2d 71 29 3b |EAN_SQ(1|-p,1-q);|
|00004fe0| 0d 0d 20 20 66 6f 72 28 | 69 3d 30 3b 20 69 3c 4d |..  for(|i=0; i<M|
|00004ff0| 41 58 5f 50 54 53 3b 20 | 69 2b 2b 29 0d 20 20 20 |AX_PTS; |i++).   |
|00005000| 20 7b 0d 20 20 20 20 73 | 75 6d 5f 69 6e 76 5f 77 | {.    s|um_inv_w|
|00005010| 74 73 20 2b 3d 20 31 2f | 77 74 73 5b 69 5d 3b 0d |ts += 1/|wts[i];.|
|00005020| 20 20 20 20 73 75 6d 5f | 49 20 2b 3d 20 2a 28 63 |    sum_|I += *(c|
|00005030| 6f 72 6e 65 72 73 2b 69 | 29 2f 77 74 73 5b 69 5d |orners+i|)/wts[i]|
|00005040| 3b 0d 20 20 20 20 7d 0d | 0d 20 20 72 65 74 75 72 |;.    }.|.  retur|
|00005050| 6e 28 20 73 75 6d 5f 49 | 20 2f 73 75 6d 5f 69 6e |n( sum_I| /sum_in|
|00005060| 76 5f 77 74 73 20 29 3b | 0d 20 20 7d 20 0d 0d 49 |v_wts );|.  } ..I|
|00005070| 4d 41 47 45 20 2a 43 6f | 70 79 5f 49 6d 61 67 65 |MAGE *Co|py_Image|
|00005080| 20 28 4f 6c 64 29 0d 49 | 4d 41 47 45 20 2a 4f 6c | (Old).I|MAGE *Ol|
|00005090| 64 3b 0d 20 20 7b 0d 20 | 20 72 65 74 75 72 6e 20 |d;.  {. | return |
|000050a0| 28 4f 6c 64 29 3b 0d 20 | 20 7d 0d 0d 49 4d 41 47 |(Old);. | }..IMAG|
|000050b0| 45 20 2a 43 72 65 61 74 | 65 5f 49 6d 61 67 65 20 |E *Creat|e_Image |
|000050c0| 28 29 0d 20 20 7b 0d 20 | 20 49 4d 41 47 45 20 2a |().  {. | IMAGE *|
|000050d0| 49 6d 61 67 65 3b 0d 0d | 20 20 69 66 20 28 28 49 |Image;..|  if ((I|
|000050e0| 6d 61 67 65 20 3d 20 28 | 49 4d 41 47 45 20 2a 29 |mage = (|IMAGE *)|
|000050f0| 6d 61 6c 6c 6f 63 28 73 | 69 7a 65 6f 66 28 49 4d |malloc(s|izeof(IM|
|00005100| 41 47 45 29 29 29 20 3d | 3d 20 4e 55 4c 4c 29 0d |AGE))) =|= NULL).|
|00005110| 20 20 20 20 4d 41 45 72 | 72 6f 72 28 22 69 6d 61 |    MAEr|ror("ima|
|00005120| 67 65 20 66 69 6c 65 22 | 29 3b 0d 20 20 49 6d 61 |ge file"|);.  Ima|
|00005130| 67 65 2d 3e 46 69 6c 65 | 5f 54 79 70 65 20 3d 20 |ge->File|_Type = |
|00005140| 30 3b 0d 20 20 49 6d 61 | 67 65 2d 3e 4d 61 70 5f |0;.  Ima|ge->Map_|
|00005150| 54 79 70 65 20 3d 20 50 | 4c 41 4e 41 52 5f 4d 41 |Type = P|LANAR_MA|
|00005160| 50 3b 0d 20 20 49 6d 61 | 67 65 2d 3e 49 6e 74 65 |P;.  Ima|ge->Inte|
|00005170| 72 70 6f 6c 61 74 69 6f | 6e 5f 54 79 70 65 20 3d |rpolatio|n_Type =|
|00005180| 20 4e 4f 5f 49 4e 54 45 | 52 50 4f 4c 41 54 49 4f | NO_INTE|RPOLATIO|
|00005190| 4e 3b 0d 20 20 49 6d 61 | 67 65 2d 3e 4f 6e 63 65 |N;.  Ima|ge->Once|
|000051a0| 5f 46 6c 61 67 20 3d 20 | 46 41 4c 53 45 3b 0d 20 |_Flag = |FALSE;. |
|000051b0| 20 49 6d 61 67 65 2d 3e | 55 73 65 5f 43 6f 6c 6f | Image->|Use_Colo|
|000051c0| 75 72 5f 46 6c 61 67 3d | 20 46 41 4c 53 45 3b 0d |ur_Flag=| FALSE;.|
|000051d0| 20 20 4d 61 6b 65 5f 56 | 65 63 74 6f 72 20 28 26 |  Make_V|ector (&|
|000051e0| 49 6d 61 67 65 2d 3e 47 | 72 61 64 69 65 6e 74 2c |Image->G|radient,|
|000051f0| 20 31 2e 30 2c 20 2d 31 | 2e 30 2c 20 30 2e 30 29 | 1.0, -1|.0, 0.0)|
|00005200| 3b 0d 20 20 72 65 74 75 | 72 6e 20 28 49 6d 61 67 |;.  retu|rn (Imag|
|00005210| 65 29 3b 0d 20 20 7d 0d | 0d 76 6f 69 64 20 44 65 |e);.  }.|.void De|
|00005220| 73 74 72 6f 79 5f 49 6d | 61 67 65 20 28 49 6d 61 |stroy_Im|age (Ima|
|00005230| 67 65 29 0d 49 4d 41 47 | 45 20 2a 49 6d 61 67 65 |ge).IMAG|E *Image|
|00005240| 3b 0d 20 20 7b 0d 20 20 | 7d 0d 00 00 00 00 00 00 |;.  {.  |}.......|
|00005250| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005260| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005270| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005280| 00 00 01 00 00 00 01 6e | 00 00 00 6e 00 00 00 3e |.......n|...n...>|
|00005290| a1 03 a8 30 4a 1f 67 16 | 12 48 c7 2f 07 50 01 13 |...0J.g.|.H./.P..|
|000052a0| d2 56 11 2f 2d 01 fc 8c | 50 01 1f 72 12 4f ef 00 |.V./-...|P..r.O..|
|000052b0| 07 49 4d 41 47 45 2e 43 | 02 00 00 00 54 45 58 54 |.IMAGE.C|....TEXT|
|000052c0| 4d 50 53 20 01 08 ff ff | ff ff 00 00 00 00 16 a0 |MPS ....|........|
|000052d0| 00 00 54 45 58 54 4d 50 | 53 20 01 08 ff ff ff ff |..TEXTMP|S ......|
|000052e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000052f0| 00 00 a8 7c 6e 9c 00 00 | 51 ca 00 00 01 ac 2c 27 |...|n...|Q.....,'|
|00005300| 29 01 1a 9a cc 96 6d ec | 51 7e 4d 29 01 1d c2 6d |).....m.|Q~M)...m|
|00005310| 7d 20 02 01 03 fa 6d 27 | 60 4c 01 03 18 cc 6d 01 |} ....m'|`L....m.|
|00005320| 60 1e 7f 55 cb 82 20 02 | 01 03 fa 50 12 02 1a 4a |`..U.. .|...P...J|
|00005330| 80 6d b0 55 01 60 34 57 | 43 50 01 02 0a 67 01 60 |.m.U.`4W|CP...g.`|
|00005340| 26 7f 01 08 e8 6f 01 00 | 25 31 4c 01 02 d6 cc 6d |&....o..|%1L....m|
|00005350| 01 60 0e 52 51 58 13 22 | 68 00 6c 4e 91 67 96 73 |.`.RQX."|h.lN.g.s|
|00005360| c4 14 ff bc 4e 5e 4e 75 | 4e 56 4b 60 8c 4d 8d 01 |....N^Nu|NVK`.M..|
|00005370| 66 10 86 01 00 82 50 14 | 01 ba 28 40 20 0c 58 8f |f.....P.|..(@ .X.|
|00005380| 00 00 00 48 00 09 4d 6f | 6e 61 63 6f 00 00 00 00 |...H..Mo|naco....|
|00005390| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000053a0| 00 00 00 00 00 00 00 06 | 00 04 01 7b 00 00 01 dd |........|...{....|
|000053b0| 02 3d 01 7b 00 00 01 dd | 02 3d a8 7c 6e 9c 00 00 |.=.{....|.=.|n...|
|000053c0| 00 00 00 00 00 00 00 00 | 00 00 01 00 00 00 00 1e |........|........|
|000053d0| 01 7b 00 00 01 dd 02 3d | 01 7b 00 00 01 dd 02 3d |.{.....=|.{.....=|
|000053e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000053f0| 01 00 00 00 01 6e 00 00 | 00 6e 00 00 00 3e 00 8d |.....n..|.n...>..|
|00005400| 3b f8 18 3e 00 00 00 1c | 00 3e 00 00 4d 50 53 52 |;..>....|.>..MPSR|
|00005410| 00 01 00 0a 03 ed ff ff | 00 00 00 00 00 00 00 00 |........|........|
|00005420| 03 f0 ff ff 00 00 00 4c | 00 8f 92 48 00 00 00 00 |.......L|...H....|
|00005430| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005440| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005450| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005460| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005470| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+